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IN EDICOLA 



Introduzione al settore della matematica che consente le vincite al Totocalcio 


I sistemi 

Che cosa, come si sviluppano, come si determina l'eventuale vincita 

II computer gitano 

Predire H futuro i il sogno irrealizzabile di tantissime persone; ma siamo sicuri 
che é davvero impossibile? 

I sistemi condizionati 

Come imporre condizioni ad un sistema per eetrame solo le colonne con maggiore 
probabilità di vincita 

I sistemi a correzione d’errore 

Come trasferire sul C/64 un metodo spesso adoperato per limitare 
il numero di colonne giocatali 







.Antonio Pastore 1B è un glorine ventiduenne che ha iniziato a collaborare eoa la Systems 
Editoriale, piò o meno costantemente, circa un anno fa. 


Anche tei, come tanti (tutti?) collaboratori della rirista “Commodore Computer Club”, 
non è stato selezionato da una agenzia specializzata nella ricerca di personale qualificato; 
te sua “agenzia” è stata unicamente la passione per il computer, la voglia di documentarsi, 
di impegnarsi a fondo per sofisticare tecniche di programmazione, le lunghe serate passate 
davanti alla tastiera. 


Nè si dere pensare, come sarebbe spontaneo, che la sua “specializzazione” nel settore 
Totocalcio da stata rolon tana. 

Quando, infatti, capitò in redazione per sottoporci alcuni suoi lavori, avera deciso di mo- 
strare soltanto dei giochi, sulla cui eccessiva semplicità non aveva riflettuto suf- 
ficientemente. 

E cosi, scarta il primo gioco, scarta il secondo, d decise di esaminare l’intera directory del 
dischetto che aveva portato con sè, allo scopo di rintracciare qualche tìtolo che ispirasse 
più... fiducia. 

Tra i vari tìtoli altisonanti che comparirono sol video (”High (ire /l”, High Are /2”, “Su- 
pergame fine” ed altri di evidente ispirazione ludica) era presente un misero e solitario 
“Tot” di cui chiesi spiegazioni. 

“Noo è nulla di spedale -rispose Pastorelli- d tratta solo di un programma per Totocaldo 
per lo sviluppo di sistemi condizionati, scritto in parte in linguaggio macchina”... 

Un immediato esame del listato faceva capire chiaramente che si trattava di una verdone 
ad oso strettamente personale (mancanza di spiegazioni, alterazione «fi alcuni puntatori 
prima dei caricamento, e coti via). 

Nel complesso, tuttavia, il lavoro era degno di nota perchè presentava un prodotto diverso 
da quelli analoghi che d vedevano arco lare a quei tempi. 

Come andasse a finire è ben noto agfi affezionati lettori deite nostra rivista: nacque te ru- 
brica “Totocaldo” che, mese dopo mese, ri arricchì di programmi sempre nuovi e, soprat- 
tutto, utili ai patiti delie schedine non solo Totocaldo, ma anche Enalotto e Totip. 

Naturalmente sarebbe stato un vero peccato limitare le potenzialità di un software impo- 
stato correttamente; ed ecco, quindi, te dedrione di una pubblicazione monografica che e- 
vita, sul nascere, gii errori che sono possibili in prodotti di questo genere: 

• Il supporto magnetico, accluso al fasdcolo, evita tatti gii errori dovuti ad errata digitazio- 
ne da parte di inesperti: è sufficiente accendere il computer e caricare i programmi l’nno do- 
po l’altro, in succesdone. 

• I programmi non sono protetti: ne consegue, tra l’altro, che è possibile “trasferirli” su più 
nastri oppure su di un solo disco, in modo da avere subito a disposizione il programma 
che interessa. 

• La parte in Lm. è interamente disassembteta e commentata: dò per invogliare gii esperti a 
cimentarsi Belfapportare modifiche non solo ai listati Bade (di per sè “infarciti” di Rem), 
ma anche alte struttura nodale stessa del package. 

• La posribilità di elaborare fino a 16 pronostid, infine, garantisce il software da obsole- 
scenza nel caso In citi li C.O.N.L decidesse di aumentare te difficoltà dei gioco. 

Un sentito ringrazi amento per l’opera svolta è quindi doveroso nei confronti di Antonio 
Pastorelli che, frenato da non poche difficoltà, ha tuttavia superato gli ostacoli che un 
package di tale portata presenta anche ai programmatori più smaliziati. 

Alessandro de Starane 
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Presentazione 



Introduzione 



A uestp fascicolo speciale, dedicato ai giochi Toto- 
caldo. Totip ed Enalotto, fa seguito alle preceden- 
ti pubblicazioni apparse, a partire dall’ottobre 1986 (n. 
35). sulla rivista C.C.C. (Commodore Computer Club) 
della Systems Editoriale di Milano. 

La pubblicazione fa parte dell'iniziativa “Software 
made in Ilaly". recentemente promossa dalla Systems 
Editoriale, che ha lo scopo principale di divulgare, a 
prezzi enormemente contenuti software di largo inte- 
resse. facile utilizzo e. soprattutto, redatti in italiano da 
programmatori italiani 

11 software non i “chiuso" ni protetto ma. al contra- 
rio. risulta ampiamente documentato, come i possibile 
verificare nelle pagine di questo fascicolo. 

I listati di cui parliamo sono adatti esclusivamente al 
computer Commodore 64 (ed al C/128, usato però in 
modo 64), tranne i casi specifiri in cui sia indicato di- 
versamente all’inizio dei singoli paragrafi. 

Ovviamente gli articoli ed i programmi che qui ap- 
paiono non rappresentano una copia esatta di quelli 
già pubblicati su C.C.C. ma costituiscono le versioni ri- 
vedute, ampliate ed arricchite di detti listati. 

Ogni software è preceduto da articoli che espongono 
non solo la parte teorica dell’argomento affrontato, ma 
illustrano il funzionamento del programma in modo 
tale che, chi lo desidera, possa apportare le modifiche 
che ritenga opportune per eventuali personalizza- 
zioni 

Chi non si sente in grado di apportare modifiche, in- 
vece. potrà comunque servirsi del software proposto co- 
si come è presentato, limitandosi ad utilizzarlo. 

Per quanto riguarda la parte in linguaggio macchina, 
sono presenti i corrispondenti disassemblati commen- 
tati che ne facilitano la comprensione agli esperti. 


R1C£VTO0Am^ 



La principale caratteristica dei programmi proposti è 
che funzionano su un numero di pronostici seleziona- 
bile da I2a 16(perSupertotip ed eventuali ampliamen- 
ti della schedina Totocalcio); in tal modo l'utente non 
dovrà temere modifiche stabilite dal C.O.N.L che pos- 
sano rendere inefficaci i programmi stessi. 

^ Inoltre tutti i programmi presenti nel fascicolo sono 
“intercomunicanti" come un vero package professio- 
nale; ne consegue che i sistemi elaborati con un pro- 
gramma possono, successivamente, essere trattati con 
un altro, senza incorrere in problemi di incom- 
patibilità. 

Per facilitare fi lavoro di modifica dei listati (ma ciò 
vale solo per gli esperti di programmazione) contenenti 
un elevato numero di istruzioni “Data”, i stato inserito 
un controllo automatico che individuae segnala la riga 
nella quale è stato eventualmente commesso l’errore 
di digitazione. 

Tali argomenti sono però superflui per gli utenti che 
posseggano su supporto magnetico il software in 

Questo fascicolo speciale non costituisce un fenome- 
no occasionale ed Isolato, ma sarà seguito dalla rubrica 
“Giochi d'azzardo", sulla rivista Commodore Compu- 
ter Club, e dalla disponibilità della nostra redazione a 
dissipare dubbi o dare chiarimenti su programmi ed 
articoli qui pubblicati. 

Se non siete programmatori, e volete esclusivamente 
sfruttare le potenzialità del package senza particolari 
problemi non dovrete quindi fare altro che limitarvi a 
leggere gli articoli che illustrano il corretto utilizzo dei 
listati stessi 


Aatooio PutorelU 


Probabilità, 
calcolo combinatorio 
e Totocalcio 

Introduzione al settore della matematica 
che consente le vincite al Totocalcio 


1 1 totalizzatore Totocalcio fu orga- 
nizzato in Italia il 5 maggio 1946 

11 Comitato Olimpico Nazionale I- 
taliano (C.O.N.I.). ottenne l'autoriz- 
zazione per la gestione di tale con- 
corso anche perchè, in questo modo, 
parte dei proventi sarebbero andati a 
sostituire il finanziamento statale di 
cui godeva fino all'anno precedente. 

Durante i primi due anni di vita, la 
gestione fu affidata alla società Sl- 
SAL. mentre dal settembre 1948 il 
C.O.N.1. si occupa direttamente del 
servizio, consentendo la possibilità, 
prima negata, di effettuare giocate 
singole o a “sistema". 

Nella stagione 1978/79 il Totocalcio 
ha raggiunto 1327.000.000 di giocate, 
per un montepremi totale di olire 145 
miliardi di lire. 

Nel 1953 fi» realizzata la prima vin- 
cita superiore ai 100 milioni, e nel 
1977/78 si superò, per la prima volta 
nella storia, il tetto del miliardo. 

Questi brevissimi cenni sulla storia 
del Totocalcio fanno ben capire qua- 
le sia la portata del concorso: in bre- 
ve tempo è diventato il poco più po- 
polare in Italia perchè milioni di per- 
sone hunno sognato (e sognano tut- 
tora) vincite colossali per realizzare i 
propri sogni nel cassetto. 

La diffusione del fenomeno Toto- 
calcio ha indotto molti studiosi ad af- 
frontare il problema da un punto di 
vista strettamente matematico, so- 
prattutto nei casi di giocate a 
“sistema". 

Il primo passo da fare, per capire 
che cosa sia e come funziona un si- 
stema, è quello di acquisite semplici 
nozioni di calcolo delle probabilità e 
calcolo combinatorio. 


Il passo successivo sarà quello di 
applicare tali nozioni al caso specifi- 
co del Totocalcio (ma anche del Totip 
e dell'Enalotto). 

Cenni sai calcolo 
combinatorio 

Si parla di probabilità quando non 
si è sufficientemente sicuri del verifi- 
carsi di un evento. 

In questa ottica la probabilità è de- 
terminata matematicamente dal rap- 
porto tra i casi favorevoli al verificar- 
si dell’evento in esame, ed 1 casi pos- 
sibili. purché questi ultimi siano tutti 
realmente (ed ugualmente) possi- 
bili 

Ad esempio nel lancio di un dado 
gli eventi possibili sono sei ed ogni 
faccia del dado ha uguale possibilità 
di uscita (salvo 11 caso di dadi trucca- 
ti, o con uno o più angoli smussati) 
mentre il caso favorevole sarà dato 
dal numero su cui abbiamo pun- 
tato: pertanto: 

Pt - Cj/Cp - 1/6 

In cui “Pr" indica la probabilità, 
doè l’incognita; XP sono i casi -favo- 
revoli c "Cp" quelli possibili. 

La probabilità che esca il numero 
scelto, qualunque esso sia, è pari ad 
1/6, il che farebbe pensare che. dopo 
sei lancL si è matematicamente sicuri 
di vincere. 

Questa supposizione è fondamen- 
talmente errata, in quanto è sostenu- 
ta dall’ipotesi intrinseca che i vari 
lanci di dado siano in qualche modo 
dipendenti l'uno dall’altro. 


In realtà i risultati dei lanci sono 
completamente indipendenti tra lo- 
ro, e il rapporto di 1/6 sarà raggiunto 
solo dopo un numero di lanci suffi- 
cientemente grande. 

Di conseguenza la percentuale di 
probabilità, calcolata come rapporto 
tra casi favorevoli e casi possibili è 
un'indicazione valida per un solo e- 
vento; in altre paiole, se valutiamo 
con 99.99% la probabilità del verifi- 
carsi di un certo evento, è possibile 
che, dopo ripetute osservazioni l’e- 
vento continui a non manifestarsi. 

Questa osservazione è di vitale im- 
portanza per gli appassionati di gio- 
chi d’azzardo, e dovrebbe indurii a 
riflettere, convincendoli a non dedi- 
care al gioco somme eccessive nella 
speranza di recuperare eventuali per- 
dite accumulate net tempo. 


Iniquità di base 

A questo proposito, bisogna ag- 
giungere che giochi come Totocalcio. 
Totip, ed Enalotto, non sono equi nel 
senso che l’eventuale vincita non è 
proporzionata alla difficoltà del 
gioco. 

Per meglio comprendere questo 
punto, ritorniamo sul banale esem- 
pio dei dadi: 

Accertato che la probabil ità di usci- 
ta di una faccia è 1/6. supponiamo di 
effettuare sei puntate e. tra queste, di 
vincerne una. 

La spesa complessiva sarà di 600 li- 
re ( 100 lire per puntata), e la vincita (6 
volte la puntata) di 600 lire. 

Questo è il classico esempio di “gio- 
co equo" in quanto la probabilità 


(1/6). è direttamente proporzionale 
rispetto alla vincita (6 volte la posta): 
di conseguenza, a lungo andare, si 
tende a pareggiare le vincite con le 
somme puntate. 

Nel caso dei conconi Tototocalcio. 
Totip ed Enalotto, come del resto 
qualsiasi altro gioco organizzato 
commercialmente, il rapporto tra 
probabilità e vincita i di gran lunga 
sfavorevole al giocatore. 

Infatti dall'incasso totale delle 
schedine, va detratta una quota, qua- 
le compenso per le ricevitorie (pari a 
circa il 7%), una quota spettante al 
C.O.NJ. quale gestore del concorso 
(circa il 35%). ed infine la quota spet- 
tante allo Stato, organizzatore e tito- 
lare dei proventi (circa il 35%). 

Ciò che resta dall’incasso delle gio- 
cate risulta pertanto molto inferiore 
alla metà della cifra spesa dagli ita- 
liani. ma è solo questa piccola fetta 
che diviene il montepremi messo 
in palio. 

Questo viene a sua volta suddiviso 
in due parti uguali: una costituisce il 
montepremi per le vincite di seconda 
categoria (12 punti): l’altra concorre- 
rà a formare il montepremi per le 
vincite di prima categoria. 

Infine i montepremi verranno an- 
cora divisi tra tutti coloro che avran- 
no realizzato il punteggio richiesto 
dalla categoria di vincita (12 oppure 
13 punti). 

Come si sviluppa un sistema? 

A queste domande, e ad altre consi- 
mili. t possibile rispondere solo con 
una minima conoscenza del calcolo 
combinatorio, che è quella parte del- 
la matematica che studia i possibili 
raggruppamenti ottenibili con un de- 
terminato numero di elementi. 

Nel procedere al calcolo delle com- 
binazioni, è di vitale importanza sot- 
tolineare come questi elementi si 
combinino tra loro. 

Si hanno le “Permutazioni’’ quan- 
do si tiene conto di tutti gli elementi e 
dell’ordine secondo il quale si com- 
binano. 

Un esempio di permutazione è il 
seguente: 

Supponiamo di avere tre elementi 
contraddistinti con i simboli: 1. X. 
2 . 

I possibili raggruppamenti sono i 



1X2 
XI 2 
2X1 
12 X 
X21 
2 IX 


Indicando con “Pn" la permutazio- 
ne di “n” elementi si ha: 


Priori! 


Nel nostro caso, avendo tre elementi, 
poniamo n=3; quindi 
P3 - 3! 

3! - 1*2*3 - 6 

Il simbolo di punto esclamativo (I). 
dunque, non è un errore di stampa, 
ma rappresenta una particolare pro- 
cedura matematica (detta “Fattoria- 
le’*) che indica la moltiplicazione 
successiva di più numeri interi dal 
valore 1 fino al numero indicato: 
esempio: 

6! - 1*2*3*4*5*6 

Nel caso in cui non tutti gli elemen- 
ti disponibili vengano presi in consi- 
derazione nel calcolo combinatorio, 
si hanno le “Disposizioni". 

Indicando con “K“ l'universo di e- 
lementi presi in esame e con “N” 
quelli che si combinano tra loro, ti 
ha: 

Dn,k = n(n-k+l) _ (n-2Xn-l ) 

Anche se la formula sembra essere 
più complessa della precedente, in 
realtà i una banale ripetizione. L'u- 
nica differenza risiede nel fatto che. 


impostandola nel secondo moda è 
possibile calcolare la combinazione 
di “n" clementi estratti da "k" dispo- 
nibili (essendo le maggiore od uguale 
ad n). 

Per dimostrare quanto appena det- 
to. riprendiamo l'esempio preceden- 
te; avevamo tre elementi: 


D3.3 -3*(3-3+ir(3-2r(3-l) 
quindi: 

D3.3 - 3*(inir(2) - 6 

Il risultato i identico al precedente 
c dimostra che le permutazioni sono 
un caso particolare delle disposi- 
zioni 

Infine si entra nel campo delle 
Xombinazioni" ogni qualvolta si 
voglia calcolare la combinazione di 
“n" elementi senza tener conto del- 
l’ordine secondo il quale si dispon- 
gono. 

Volendo insistere con l'esempio 
prima utilizzato, il risultato sarà 0 
seguente: 


111 
XII 
211 
I IX 
XIX 
21 X 
1 I 2 
XI 2 
212 
1X1 
XX 1 
2X1 
1XX 
XXX 
2XX 
1X2 
XX2 
2X2 
121 
X21 
221 
12X 
X2X 
22X 
122 
X22 
222 

Indicando con k quante volte sce- 
gliere un elemento n per formare le 
varie combinazioni avremo (ab: 
exp- elevato a): 

Di.*-» (exp) k 
oppure 
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Cn.k=n exp(k I 

Qucst'ultimu formula è la più im- 
portante per il giocatore di Totocal- 
cio. Totip od Enalotto. 

Essa appare in quasi tutti i pro- 
grammi di questo fascicola ed è uti- 
lizzata per calcolare il numero di co- 
lonne originate da un sistema. 

Un esempio di applicazione prati- 
ca può essere il seguente: 

Impostato il sistema di due triple e 
quattro doppie... 

1X2 

12 

1 

1X2 

X2 

IX 

I 


X 

1 

-calcoliamo il numero di varianti 
doppie e triple. 

Due triple danno origine ad un nu- 
mero di colonne pari a 3 (numero ele- 
menti) elevato a 2 (colonne), cioè 9. 
Quattro varianti doppie danno ori- 


gine a 2 (numero clementi) elevato a 
4 (colonne), cioè 16. 

Dal momento che le colonne gene- 
rate dalle varianti doppie non sono 
indipendenti da quelle generate dalle 
triple, i due gruppi si combinano tra 
loro, costringendo a moltiplicare 16 
per 9. ottenendo 144. 

In definitiva, per calcolare il nume- 
ro di colonne di un sistema integrale, 
basta applicare la seguente formula: 

2 exp (n. doppie ) m 3 exp (n. triple) 

Volendo mettete in pratica quanto 
detto finora, possiamo provare a cal- 
colare la probabilità di vincita di un 
giocatore che “investa" 1000 lire al 
gioco del Ibtocalcio. 

Sappiamo che i pronostici sono 13. 
che gli elementi di combinazione so- 
no 3 (i tre segni: 1. X, 2). e che in tale 
gioco i segni possono essere disposti 
in qualsiasi modo, anche con ri- 
petizione. 

U numero di colonne derivanti da 
tale combinazione è: 

C3.13 = 3 derato a 13 * U94.323 

Pur se il costo di una colonna è di- 
verso da quello indicato in questo fa- 
scicolo. supporremo, per semplicità, 
che una colonna costi 500 lire. 


Se. con 1000 lire è possibile giocare 
due colonne, gli eventi possibili sono 
dati da rotte le possibili colonne 
(1.594.323) c quelli favorevoli sono 
rappresentati dalle due colonne gio- 
cate: di conseguenza: 

Pr = CffCp ■> 2/1.394.323 

T ramutando in percentuale il risul- 
tato della frazione otteniamo un mi- 
sero 0.000001254% 

Tale valore è comunque calcolato 
sono l'ipotesi che tutti i casi siano u- 
gualmentc possibili, e va pertanto in- 
terpretato tenendo conto di questo li- 
mile: sarebbe perfettamente attendi- 
bile nel caso in cui il giocatore sia u- 
na persona totalmente inesperta di 
calcio e Ibtocalcio. mentre la percen- 
tuale calcolata sale sensibilmente 
quando il giocatore sia una persona 
con una certa conoscenza delle ca- 
ratteristiche delle squadre di calcio. 

Vediamo ora come utilizzare le pre- 
cedenti nozioni di calcolo combina- 
torio per la stesura di idonei pro- 
grammi. 

Il programma "Calcolo colonne" 
chiede il numero di varianti doppie e 
triple, poi esegue il calcolo delle co- 
lonne risultanti dallo sviluppo di un 
sistema con tali caratteristiche. 


10 PRINT CHRSC 1473 : REM CANCEL 
LA UIDEO 

20 INPUT . "NUMERO UARIANTI DOP 
PIE" : U1 : REM CHIEDE NUMERO 
DOPPIE 

30 INPUT "NUMERO UARIANTI TRI 
PLE" : U2: REM CHIEDE NUMERO 
TRIPLE 

40 REM 

50 REM CALCOLO COLONNE 

60 REM 

70 CO-INTC2TUl*3TU2?:REM CALC 
OLD COMBINAZIONI C COLONNE 3 

B0 PRINT "COLONNE SISTEMA: CO 

Alla riga 20 viene chiesto il numero 
di varianti doppie, alla 30 le triple. 

Alla riga 70 applica la formula pri- 
ma vista ed il risultato viene assegna- 
to alla variabile CO, stampata alla ri- 


: REM STAMPA RISULTATO 
90 PRINT: PRINT 

100 PRINT "ALTRA ELABORAZIONE C 

S/N3?" 

110 BET A$ : REM E' STATO PREMU 
TO UN TASTO? 

120 IF A$-"S" THEN RUN : REM 
SE PREMUTO ‘S* RICOMINCIA 
130 IF AS-"N" THEN END .-REM 
SE PREMUTO ’N ' ALLORA ESCE 
DAL PROGRAMMA 

140 GOTO 110: REM TASTO NON UA 
LIDO. SALTA A CONTROLLO ALT 
RO TASTO 

computer a che servirebbe? 

L'unico scopo per il quale sono ri- 
portate è quello di invogliare i lettori, 
un po' per diletto, un po’ per eserci- 
zio. a tentare la stesura di propri pro- 
grammi. oltre a quelli proposti. 


ga 80. 

Ovviamente, avendo su nastro i 
programmi di cui parìiama non è 
necessario acquisire le nozioni di 
calcolo combinatoria altrimenti il 
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I sistemi 

Che cosa sono, 
come si sviluppano, 
e come si determina 
l'eventuale vincita 

n sistema è una "combinazio- 
ne" di segni, tramite la quale è possi- 
bile raggruppare numerose colonne 
facendo uso delle varianti triple e 
doppie. 

Inserire in un sistema due triple (1 
X 2\ corrisponde, pertanto, alle com- 
binazioni dei segni “1". “X” e “2“ su 
due elementi: 

11. IX U XI. XX X2 21. 2X 22 

Sviluppare un sistema vuol dire 
• quindi estrarre tutte le combinazioni 
di segni che si possono ottenere. 



Un sistema contenente solo quanro 
varianti doppie raggruppa (e, quindi 
sostituisce a tutti gii effetti) 16 colon- 
ne; ad esempio, il sistema..: 


-sviluppato adeguatamente forni- 
sce.. 


a) 111 1II1111J II 

b) 1112111111111 
e) 11X1111111111 

d) 11X2111111111 

e) 121 111 unni 
fi 1212111111111 

g) 12X1111111111 

h) 12X2111111111 

i) XI 111 111 111 11 


fi XI 12111111 111 
k)X!Xl 11 1111111 
0X1X2111111111 

m) X21 111 II 11111 

n) X212nnillll 

o) X2Xl 11 1111111 

p) X2X2iniiuii 


L’uso dei sistemi, si rende necessa- 
rio quando il numero di colonne che 
si intende giocare è elevato. 

D vantaggio di poter raggruppare in 
un unico sistema molte colonne (per 
il Totocalcio con 13 pronostici, come 
abbiamo visto, fino a 1.594.323 co- 
lonne). è ostacolato dal fatto che. gio- 
cando un sistema integrale, si gioca- 
no anche quelle colonne dotate di 
scarsissime probabilità di vincita. 

Se decidessimo, per assurdo, di gio- 
care un sistema intesale da 13 triple, 
giocheremmo migliaia di colonne, 
con probabilità di vincita quasi nul- 
la, come le seguenti: 


2222222222222 

X222222222222 

222222222222X 

1222222222222 


1122222222222 

2222222221222 

X22222X22222X 

Lo svantaggio tipico dei sistemi in- 
tegrali. rispetto alle giocate di singole 
colonne, impone la necessità di ricer- 
care, e sviluppare a parte, metodi per 
aumentare l'efficienza del gioco, in 
termini di selezione della qualità del- 
le colonne da giocare estratte dai si- 
stemi dei quali fanno parte. 

Risparmiar colonne 

I metodi più usati, per evitare spese 
inutili, sono la "riduzione" (ed anche 
la bi-riduzione), il “condizionamen- 
to". basato su dati statistici, e la “cor- 
rezione d’errore”: troverete per ognu- 
no di questi argomenti un articolo e- 
splicativo. corredato di programma 
per l’applicazione immediata. 

Come si calcolano le vincite dei 
sistemi? 

Raggruppando diverse colonne In 
un solo sistema, è possibile calcolare 
matematicamente il numero di vinci- 
te. senza dover controllare manual- 
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mente ogni singola colonna. 

La formula per calcolare il numero 
di vincite di seconda categorìa si può 
facilmente ricavare tramite un sem- 
plice ragionamento 

Ogni variante doppia genera una 
vincita di seconda categorìa ( 12 per il 
Totocalcio oppure 1 1 per Totip ed 
Enalotto). 

Se, ad esempio, abbiamo il seguen- 
te sistema.. 

IX 

I 


I 


_le colonne derivanti risultano es- 
sere: 

a/ UHI 111 11 11 

b/ixn imi in 

Supponendo, ora, che la prima sia 
quella vincente con il massimo dei 
punti ( 13), la seconda conterei, inevi- 
tabilmente. solo una vincita di secon- 
da categoria (12), dal momento che 
differisce, dalla prima, per un solo 
risultato. 

Analogamente, ogni variante tripla 
presente nel sistema, dà origine a due 
vincite di seconda categorìa. 

E' possibile calcolare il numero 
delle vincite di seconda categorìa con 
la seguente formula: 

Vmc.= (numero doppie) + (numero 
triple/*! 

D numero di vincite di prima cate- 
gorìa è, ovviamente, sempre uguale 
all'unità. 

Nel caso si indovinino 13 risultati 
in una schedina Totocalcio compo- 
sta da 4 triple, 2 doppie, e 7 fisse, le 
vincite si calcolerebbero nel modo 

seguente: 

Totale = 2+4*3 - 14 vincite di seconda 
categoria (oltre ad un 13), 


Troverete un breve programma per 
la stampa su carta di una tabella per 
il calcolo delle vincite (dal nome 
"Stampa tabella"), ed un altro per lo 
sviluppo integrale dei sistemi (“Svi- 
luppa sistema"). 

Il procedimento usato dal secondo 
programma è interessante sia per chi 
abbia intenzione di imparare a svi- 
luppare manualmente i sistemi stes- 
si. sia per chi è invece interessato 
alla programmazione. 

Il Commodore 64 ha una zona di 
memoria, chiamata “STACK". usata 
dal sistema operativo per alcune fun- 
zioni particolari, tra le quali quella di 
memorizzare i parametri dei deli 
“For _. Next" aperti. 

Purtroppo questa area di memoria 
è limitata, e consente di tenere aperti 
contemporaneamente un massimo 
di 10 deli. 

L'ostacolo è agevolmente aggirato 
ricorrendo ad un metodo che ricorda 
il funzionamento del contatore del- 
l'energia elettrica: a mano a mano 
che si consuma energia l'ultima cifra 
aumenta fino a raggiungere l'ultimo 
simbolo ammesso (Q 9X per poi ripar- 
tire da zero, dopo aver incrementato 
la afra di sinistra. 

Il procedimento per sviluppare un 
sistema è simile a quello del contato- 
re: la differenza su nel fatto che i tre 
simboli non sono numerid (1, X, 
2 ). 

Supponendo di avere un sistema 
cosi composto... 

JX 

1X2 

1 

1 

1 

1 

I 


1 

1 

1 

1 

..opereremo nel modo seguente: 

Innanzitutto prendiamo in consi- 
derazione la prima colonna del siste- 
ma. data dal primo segno di ogni va- 



riante o. in mancanza, dal pronostico 
fisso; otterremo la colonna—: 

a) 1111111111111 

Ora, partendo dall’ultima variante 
del sistema, cambiamo il segno con 
un altro previsto dalla variante: 

b) 1X11111111111 

ripetendo l'operazione otterremo: 

c) 1211111111111 

A questo punto, esauriti i segni a di- 
sposizione per il secondo pronostico 
(1, X, 2), dobbiamo ripartire con il 
primo (1) e cambiare quello della 
doppia precedente, cioè la prima: 


d) XI 11 1111 11 111 

infine, continuando come sopra 
descritto, otterremo le ultime due co- 
lonne del sistema: 

d) XXI 111 111 1111 

e) X2iniinini 

Provate ad utilizzare questo meto- 
do con altri sistemi e poi confrontate 
i risultati con quelli del programma 
proposta per verificare l'esattezza 
delle vostre elaborazioni 
I programmi di cui parliamo sono 
funzionanti su tutti i sistemi Com- 
modore. 
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10 REM STAMPA TABELLA CALCOLO 
20 REM UINCITE DI 2A CATEGORIA 
30 REM 

40 RE(1 BY: ANTONIO PASTORELLI 

50 PRINT**3ACCENDI LA STAMPANTE E PREMI UN TASTO** 

51 GETAS: IFAS-""THEN51 

100 OPEN 1.4,7: CLOSE1 : IF ST<>0 THEN 100 
110 OPEN 1,4: AS— ***UAR I ANT I TRIPLE*** 


120 PRINT#1,”, 

130 PRINT#1 , '* | TABELLA CALCOLO UINCITE DI 2A CATEGORIA I 

140 PRINT#1 , ’* I , 1 

150 PRINT#1.*‘I I NUMERO UARIANTI DOPPIE I 

150 PRINT#1 . ” I I 1 

170 PRINT#1 , ” I la 0Sla IH la 2Hia 3Hia 4Hta 5Hia BH I” : 

1 B 0 PRINT#1,”2 7Hlfl tìHia 9H iai0B 121 IH |afl2H 1 atl I :r 4M I aam ai fri qn i >■ 

1B2 PRINT#1.”I— , H 1 1 1 1 1 1 I T T f 1^ 4' > 1 »' 


1S0 FOR TR-0 TO 16: IF TR-0 THEN PRINT#1,**| la 0»I|**;:GOTO 200 
132 TRS-MI0SCSTRSCTR1 .2,21: IF LENCTRS5-1 THEN TRS-CHRSC325+TRS 
1S4 PRINT#1, ** I**; 

1S6 PR INTUÌ .MIDSCAS.TR.l); ** ia”TRS”HI I**; 

200 FOR DO-0 TO 15 

210 TL-D0+TR*2: TLS-MIDSCSTRSCTLJ . 2. 2) : IF LENCTLS1-1 THEN TLS-CHRS ( 32 ) +TLS 
220 PRINT#1 . TLS : CHR5C221 1 ; 

222 IF 00-15 THEN PR1NT#1:B0T0 253 
230 IF TR+00-16 THEN 250 
240 NEXT DO: STOP 

250 FOR K-DO TO 15: PRINTfcl . CHRSC325CHRSC321CHRSC221 ) ; : NEXT K:PRINT#1 

253 PRINT#1 , ** | I h+“;:FOR K-0 TO 15: PRINTtl . ** T;:NEXT 

254 PRINTtl , ” T 

255 NEXT TR 

250 PRINTfcl, " l— ' 1 1 i 1 1 1 1 1 i 1 1 1 1 1 1» 

270 PRINT#1 : CL0SE1 
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10 REM SUI LOPPA SISTEMI 
50 REM BY: ANTONIO PASTORELLI 
30 : 

35 PRINT CHRSC 145 )CHRSCB) : DIN SISC 16) . BSC 16) 

40 PRINT CHRSC147) "SU QUANTI PRONOSTICI LAUORI 
70 INPUT NP 

B0 IF NP< 18 OR NP> 1B THEN 40 
30 PRINT CHRSC 147) : FOR J-l TO NP 

100 PRINT TABC5-LENCSTRSC J) 3 5 ; J; : INPUT SISC J ) : SS-SISC J) 

110 IF SS-”1" OR SS-"X" OR SS-"S” OR S$-"1X” OR SS-"X1" THEN 1B0 

150 IF SS- ”18" OR SS-"81" OR SS-”X8" OR S$- M 8X” THEN 1B0 

130 IF SS-”1X8" OR SS-"18X” OR S$-”X18” OR SS-“X81" THEN 1B0 

140 IF SS-”S1X" OR SS-"8X1" THEN 160 

150 PRINT CHRSC 145) BOTO 100 

160 NEXT J 

170 PRINT: PRINT: PRINT "CONFERII I CS/N)? n 

1B0 GET A$ : IF AS-"N” THEN RUN 

130 IF A$-”S” THEN 810 

500 BOTO 180 

510 : 

850 REM CALCOLO ULTIMA UARIANTE CIN LU) 

830 : 

540 FOR J-l TO NP 
550 IF LENCSISC J) )> 1 THEN LU-J 
860 NEXT J : I F LU-0 THEN RUN 
570 : 

5B0 REM 1A COLONNA 
530 : 

300 FOR J-l TO NP : BSC J)-LEFTSCSI$C J) , 1) : NEXT 
310 : 

380 REM TRATTAMENTO RISULTATI 

330 ; ■ 

340 PRINT CHRSC 147) CHRSC1B) ”U"CHR$C 146) " IDEO 0 "CHRSC 1B) "S" ; 

350 PRINTCHRSC 146 ) "TAMPANTE?" 

360 SET AS: IF AS-“U" THEN OPEN 1,3:GQT0 410 
370 IF A$-”S” THEN 330 
380 BOTO 360 

330 OPEN 1,4,7: CLOSE1 : IF ST<>0 THEN 360 

400. OPEN 1,4 

410 PRINT CHRSC 147) 

450 FOR K-l TO NP : PR INTUÌ , BSOO : : NEXT K:PRINT#1 
430 BOSUB 10000: REM SUILUPPA ALTRA COLONNA 
440 GOTO 480 
3333 END 

10000 FOR J-LU TO 1 STEP-1 : SS-SISCJ) : DS-BSCJ) : IF LENCSS)-1 THEN 10070 
10010 IF LENCSS)-3 THEN 10040 

10050 IF OS— LEFTSCSS. 1) THEN BSC J)-RIGHTSCSS. 1) : RETURN 
10030 BSC J) -LEFTSCSS , 1) : GOTO 10070 

10040 IF DS-LEFTSCSS. 1) THEN BSC J)-MID$CSS, 5. 1) : RETURN 
10050 IF DS-MIDSCSS.8.1) THEN BSC J)-RIGHTSCSS . 1 ): RETURN 
10060 BSC J)-LEFTSC5S, 1) 

10070 NEXT J ; PRINT#1 : CLOSE1 
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Il computer gitano 

Predire il futuro è il sogno irrealizzabile 
di tantissime persone; ma siamo sicuri 
che è davvero impossibile? 


A. I giorno d'oggi il computer af- 
fianca l'uomo, o addirittura lo sosti- 
tuisce. in ogni tipo di attività. 

Il calcolatone, come un qualsiasi al- 
tro strumento di lavoro tradizionale, 
non è in grado di “creare'’ qualcosa 
se non t guidato da una persona. 

Con il programma Tot Predictor” 
il vostro C/64 si cimenterà nella parte 
di uno zingaro che prevede il futuro, 
non certo leggendo la mano. ma. ba- 
sandosi su dati che inserirete voi stes- 
si, darà una previsione sui risultati 
delle partite di calcio presenti nella 
schedina. 

1 dati presi in considerazione per Q 
calcolo delle probabilità dell’uscita 
dei segni “1“ “X" e "2“ sono quelli re- 
lativi ai risultati delle partite giocate 
in precedenza dalle squadre con- 
siderate. 

Per ogni squadra si prenderanno in 
considerazione il numero delle parti- 
te vinte, di quelle pareggiate (nulle), o 
pene, in casa od in trasferta ed a se- 
conda del campo in cui si gioca. 

In base a tali dati verranno calcola- 
te le probabilità (in percentuale) di 
vincita, c quella del pareggio per cia- 
scuna squadra. 

Inline, dalle percentuali, deriverà 
un sistema “probabile"; ogni segno 
sarà presente nel sistema se supera u- 
na percentuale minima, precedente- 
mente impostata. 

Se. ad esempio, per rincontro 
Mi lan- Avellino, ottenessimo le se- 
guenti percentuali... 

segno 1: 45% 
segno X: 10% 
segno 2: 45% 

-.allora, in corrispondenza dell'in- 
contro preso in esame, troveremo nel 
sistema il pronostico “12". 


I n tutti i programmi di sistemistica, 
le elaborazioni partono da un certo 
sistema-base, inserito dall’utente. 

Tuttavia l’utente, neU’esprimere un 
giudizio circa il risultato di un incon- 
tro. può essere parziale, cioè esprime- 
re un giudizio inevitabilmente sog- 
gettivo. 

Ma nel caso in cui l'utente sia total- 
mente inesperto di calcio, non avrà 
alcuno strumento per valutare obiet- 
tivamente il potenziale delle squadre 
in schedina, e quindi non potrà dare 
un giudizio minimamente attendi- 
bile. 

Il programma proposto ovvia ai 
due problemi, sia perchè un compu- 
ter non può essere parziale (se non 
opportunamente programmato), sia 
perchè si basa su dati effettivi, relativi 
a risultati precedenti e ben docu- 
mentati. 

In ogni caso il lettore potrà decidere 
di non giocare il sistema cosi come 
proposto dall'elaboratore, ma appor- 
tare le modifiche dovute a successive 
valutazioni personali 

In definitiva questo programma 
vuole essere uno strumento di aiuto 
per elaborare un sistema esente da 
valutazioni soggettive dell'utente, op- 


pure essere un semplice suggerimen- 
to sulla base del quale stilare, o me- 
na il proprio sistema. 

E’ bene precisare ancora una volta 
che il fatto di calcolare le probabilità 
su dati precedenti e documentati, 
non significa ottenere previsioni at- 
tendibili al 100%: infatti, come detto 
in precedenza, un evento con proba- 
bilità 99,99% potrebbe ripetutamente 
non manifestarsi 

Nel sistema proposto dal program- 
ma di queste pagine i segni sono or- 
dinati in base alle probabilità; nelle 
varianti il primo segno è quello più 
probabile, mentre l’ultimo è quello 
meno probabile. 

Tale caratteristica si rivela molto u- 
tfie quando si intenda elaborare si- 
stemi a correzione d’errore, per i qua- 
li è di vitale importanza che il primo 
segno di ogni pronostico sia quello 
ritenuto più probabile, come vedre- 
mo nel paragrafo sulla correzione 
degli errori. 

Come usare “Tbt Predictor” 

Dopo il RUN, apparirà sullo scher- 
mo la schermata di presentazione 
che si potrà interrompere premendo 
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un insto qualsiasi. 

Verrà quindi chiesto su quanti pro- 
nastici si intenda lavorare. 

I vaiorì accettati sono quelli varia- 
bili tra 12 (Totip) e 16 (eventuali "e- 
spansioni" future del Totocalcio); in- 
serito il numero di pronostici preme- 
te il tasto Return, altrimenti potrete 
correggere, con il tasto Inst/Dcl, e- 
ventuali imprecisioni di digitazione. 

II passo successivo è quello di stabi- 
lire se si vuole inserire l'elenco delle 
squadre: all'apposita domanda pre- 
mete “S" per l'inserimento oppure 
"N" per saltare questa opzione. 

Ora inserite i dati che serviranno al 
computer percalcolare le probabilità 
e quindi il sistema. 

Sullo schermo appare una griglia 
vuota, che prevede uno spazio per i 
nomi delle squadre contendenti (se 
avete selezionato in precedenza l'op- 
portuna opzione). 

Se avete optato per l'inserimento 
delle squadre, per ogni pronostico in- 
serirete dapprima il loro nome; in ca- 
so contrario sarà lo stesso calcolatore 
a compilare lo spazio riservato alle 
squadre, stampando “ospitante" nel- 
la colonna “la Squadra", e “ospite" 
nella colonna “2a Squadra". 

In seguito, nelle colonne contrasse- 
gnate con le sigle “VI". “NIT. “PE“. 
indicherete rispettivamente il nume- 
ro di partite Vinte. NUlle (pareggi), 
e PErse. 

Ovviamente, per la prima squadra 
indicherete i risultati ottenuti sul pro- 
prio campo (in casa), mentre per la 
seconda indicherete solo i risultati 



onenuti in trasferta (fuori casa). 

Normalmente tali dati sono reperi- 
bili su qualsiasi quotidiano del lune- 
di; tuttavia è consigliabile procurarsi 
una testata di settore (esempio: Cor- 
riere dello Sport), in quanto riporta 
distintamente i risultati ottenuti in 
casa ed in trasferta, anche per le 
squadre di serie “C". 

Altri quotidiani, invece, riportano i 
risultati distini per la serie A e B. 
mentre per le altre squadre riportano 
solo i risultati globali. 

Disporre di informazioni parziali 
comporta una maggiore attendibilità 
dei risultati da ottenere con il pro- 
gramma. 

E' immediato constatare che stati- 
sticamente, per una qualsiasi squa- 
dra. i risultati migliori si ottengono 
giocando sul proprio campo, a causa 
di fattori psicologici, ambientali, di 
tifoseria e cosi via; mentre, per gli 
stessi motivi, in trasferta i più diffici- 
le accumulare punti. 

Utilizzando dati globali non di- 
stinti in base al campo di gioco, si 
perviene a statistiche non attendibili 
in quanto calcolate con valori non o- 
mogenei tra loro. 


Terminato llnserimento dei risul- 
tati delle squadre, viene richiesta la 
conferma dei dati immessi. 

Premendo “N” avrete la possibilità 
di correggere un pronostico, indican- 
done il numero e premendo Return. 

Il cursore si posizionerà, in questo 
caso, sul pronostico selezionato e po- 
trete confermare i dati esatti premen- 
do Return, o correggerli facendo uso 
del tasto Inst/Dcl. 

Terminata la correzione, viene an- 
cora richiesta conferma di quanto di- 
gitato. in modo da apportare even- 
tuali ulteriori correzioni: premendo 



“S", invece, si prosegue. 

Lo schermo si cancella per alcuni 
secondi durante i quali il vostro C-64 
eseguirà i calcoli per la determina- 
zione dei sistema. 

Al termine apparirà la schermata 
finale, che contiene l'elenco delle 
squadre (se immesso precedente- 
mente). le percentuali calcolate dei 
segni “1", “X" e “2", ed infine il siste- 
ma proposto per la giocata. 

Di questi dati potrete ottenere una 
hardcopy su carta (purché disponia- 
te di stampanti 801/803 oppure Com- 
modore compatibili); questa opzione 
si attiva premendo il tasto "1". 

Premendo “2" il programma ripar- 
te. mentre con “3” lo si abbandona. 

Il sistema cosi ottenuto é suscettibi- 
le di diversi miglioramenti: potete in- 
tegrarlo con pronostici personali, uti- 
lizzarlo per ottenere un sistema con- 
dizionato. un sistema ridotto, condi- 
zionato c ridotto, a correzione d'erro- 
re e cosi via; oppure potete giocarlo 
integralmente, senza ulteriori ela- 
borazioni 
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100 REM TOT-PREDICTOR 
1S0 REM UERSIONE PER C-64 
200 REM 

250 REM BY ANTONIO PASTORELLI 
300 : 

350 REM 

400 REM • DEFINIZIONE CARATTERI • 
450 REM 


50S : 

510 DIM SQSC16.2) : REM ELENCO SQUADRE 

520 DIM UI (2. 16) . NU(2. 16).PE(2.16): REM ELENCO UINCITE PAREGGI E SCONFITTE 

521 DIM Sl( 16) . SX(16) , S2C 16) : REM PERCENTUALI DI PROBABILITÀ 1 SEGNI 1.X.2 

522 DIM 510(16) : REM SISTEMA 
530 : 

SS0 X1S-CHRSC213):X2S-CHRSC192):X3S-CHRSC17B):X4S-CHRSC201):R£M " , - t >" 

600 X5S-CHRSC221):X6S-CHRSC213):X7S-CHRSC202):XBS-CHRSC2O3):REM "I + W» 

650 X9S-CHRSC 177) : XAS-CHRSC 171 ) : XBS-CHRSC 173) : REM "J.|. .<« 

700 SPS-CHRSC32) : REM SPACE 
750 : 

800 POKE 53200.0: POKE 53281 .0:PRINT CHRSC2B) 

050 PRINT CHRSC 142)CHRSC0)CHRSC147) : PRINT TABC6) "SYSTEMS EDITORIALE PRESENTA: " 
900 FOR J-1T0 10: PRINT CHRSC 17) : NEXT J:PK1UT TABC9) "BY: ANTONIO PASTORELLI" 

350 CO-3 

1000 POKE 211. 13: POKE 214. 11: SYS 58640 

1050 CO-CO+liIF C0>15 THEN CO-2 

1100 POKE 646. CO: PRINT "TOT PREDI CTOR" 

1150 IF PEEKC 137)<> 64 THEN12S0 
1200 GOTO 1000 

1250 PRINT CHRSC147)CHRS(S): :FOR J-l TO 10:PRINT CHRSC17) : : NEXT J 

1300 PRINT X1S: : FOR J-l TO 30:PRINT X2S: :NEXT J-.PRINT X4Sj 

1350 PRINT X5S : “SU QUANTI PRONOSTICI LAUORI C12.'16)T" : SPSSPSX5S; 

1400 PRINT X7S : : FOR J-l TO 3B:PRINT X2S;:NEXT J: PRINT X8S 
1450 POKE 211 . 37 : POKE 214.11:SYS S0640:POKE 204 . 0 : US- 11 “ : POKE 138,0 
1500 0ET AS:IF AS-CHRSC13) THEN 1830 
1550 IF AS-CHRSC20) AND USO"" THEN 1750 

1600 IF AS< "0” OR AS>"6" THEN 1500 

1601 IF HK-1 THEN 1700 

1650 IF ASO "1" AND US-"" THEN 1500 
1660 IF HK-1 AND UALCUS«-AS)>PR THEN 1500 

1700 IF LEN(WS)-2 THEN 1500 

1701 IF AS— "0". AND US-"" THEN 1500 

1702 US-US*AS: PRINT AS i : GOTO 1500 

1750 US-LEFTSCUS. LEN(US)-l) : POKE 204.1: POKE 207.0 

1751 IF LEN(US)-1 AND HK-0 THEN PRINT X5S;:G0T0 1010 
1000 PRINT SPS; 

1810 PRINT CHRSC 157 )CHRS( 157) : SPS : CHRSC 157) : : POKE 204.0:GOTO 1500 

1830 IF UAL C US ) — 0 THEN 1500 

1031 IF HK-1 THEN RETURN 

1B32 IF UALCUSX 12 THEN 1500 

1833 IF LEN(US)<>2 THEN 1500 

1840 PR— UAL C US ) : POKE 204 . 1 : POKE 207.0 

1850 PRINT CHRS(147)CHRS(5) " INSERISCI L'ELENCO DELLE SQUADRE 7 ":POKE 198.0 

1900 GET AS: IF AS-"9“ THEN S0-1:80T0 2300 

1950 IF AS— ”N* THEN SQ-0:GOTO 2300 

2000 GOTO 1900 

2050 : 

2100 REM •••••••*•••••••••••••• 

2150 REM ••• STAMPA GRIGLIA ••• 

2200 REM 
2250 « 

2300 PRINT CHRSC 147) X1S: X2SX2SX2S: 

2350 PRINT CHRSC 18 ) " I NSER I MENTO ELENCO DELLE SQUADRE" : CHRSC 146) ; X2SX2SX2SX4S : 
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2400 print xssrspccsairxss; 

24 se PRINT XAS::FOR J-l TO B : PR 1 NT X2S: .-NEXT JrPRINT "5QUADRE": 

HSOB FOR J-l TO 6: PRINT X2S;:NEXT J 

2550 PRINT X4SX1S: : FOR J-l TO H:PRIN" X2S::NEXT JrPRINT “RISULTATI": 

2600 FOR J-l TO *i: PRINT X2S;:NEXT JrPRINT XBS; 

2650 PRINT XSS:“1A SQUAOR" ; XSS; “2A SQUAOK “ ; XSS ; 

2700 PRINT X5* : "1A SOUAD" : XSS; “2A SQUAD";X5S; 

2750 PR I NTX5S : SPC C 9 1 ; XSS ; SPC C 9 ) : X5SXAS : : FOR J-l TO B: PRINT X2S; : NEXTJ: PRINTX6S; 
2600 FOR J-l TO B: PRINT X2S;:NEXT JrPRINT XBS; 

2B50 PRINT X5S;SPCC3) : XSS; SPCC9) ; X5SX5S : ”U1 ” ; XSS: "NU“ ; XSS; "PE“ : 

2300 PRINT CHRSC 18) : SPS;CMRS( 146) : *UI “ : XSS; "NU“ ; X5S ; "PE" : XSS; 

2350 PRINT XAS: :F0RJ-1T03: PRINT X2S::NEXT J:PRINT XBS; 

3000 FOR J-l TO 3: PRINT X2S;:NEXT JrPRINT XBSXAS; 

3050 FOR J-l TO 2: PRINT X2SX2SX6S ; : NEXT J-.PRINT X2SX2S; CHRSC IBI : SPS; CHRSC146) : 

3100 FOR J-l TO BrPRINT X2SX2SX6S ; : NEXT JrPRINT X2SX2SXBS; 

3150 FOR J-l TO PR 

3200 PRINT X5S;SPCC3);X5S;SPCC9);XSSXSSi 

3250 FOR K-l TO 2:PHINT SPSSPSX5S; : NEXT KiPKINI SPSSPS; CHRSC 1B) : SPS; CHRSC 146) : 

3300 FOR K-l TO 2:PRINT SPSSPSX5S ; : NEXT K: PRINT SPSSPSX5S j 

3350 NEXT J 

3360 PRINT X7S; : FOR J-l TO 3:PRINT X2S;:NEXT JrPRINT X3S; 

3370 FOR J-l TO 3: PRI NT X2S;:NEXT J : PRINT XBS; 

33B0 PRINT X7S; : FOR J-l TO 5: PRINT X2SX2SX3S; : NEXT J:PR1NT X2SX2SX8S ; 

3330 : 

3400 RETI 

3410 REM • INPUT SQUADRE E RISULTATI • 

3420 REM • 


3440 FOR J-l TO PR 

3450 IF SQ-1 THEN GOSUB 10000 INPUT NOMI SQUADRE : GOTO 34B0 
3460 POKE 211,1: POKE 214,6*J:SYS 5BB40: PRINT“OSPITANTE“ : XSS; 

3470 PRINT SPSSPSSPS; “OSPITE": 

3490 GOSUB 20000' INPUT RISULTATI 
3430 NEXT J 
3500 : 

3505 POKE 211,0: POKE 214, 24: SYS 58640 

3510 PRINT “CONFERMI CS/N)?“; 

3511 FOR J-l TO 13: PRINT 5PS::NEXT J:POKE 138,0 
3520 GET AS:IF AS-“S" THEN 3612 

3530 IF AS-"N" THEN 3550 
3540 BOTO 3520 

3550 POKE 21 1.0: POKE 214, 24: SYS 58640 
3560 PRINT "QUALE MODIFICHI C 1/*:PR;“)?"; 

3570 HK-1 : US- " " : POKE 204.0:GOSUB 1S00:HK-0:POKE 204,1:POKE 207.0:PRINT SPS; 

3580 J-UALCUIS): IF SO-0 THEN 3600 

3530 GOSUB 10000 INPUT NOME SQUADRA 

3600 GOSUB 20000 INPUT RISULTATI 

3610 GOTO 3505 

3612 PRINT CHRSC147) ; 

3620 : 

3630 REM 

3640 REM • TRASFORMA I RISULTATI • 

3650 REM • IN PERCENTUALI • 

3660 REM 
3670 : 

3680 FOR J-l TO PR 
3690 FOR K-l TO 2 

3700 TL-UI CK. Jl+NUCK, J)*PECK, J 5 : IF TL-0 THEN 3B30 
3710 UICK.JJ-UICK. JJ-100/TL 
3750 NUCK. Jl-NUCK, J)«100/TL 
3790 PECK. J)“100-UICK. Jl-NUCK, J) 

3830 NEXT K.J 
3840 : 
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3850 REO 

3860 RE(1 • CALCOLO PERCENTUALI SE6NI - 
3870 REM •••*•••••*• 

3830 FOR J-l TO PR 
3900 S1CJ3-UIC1.J3-PECS.J3 
3310 SXCJ3-NUC1. J3-NUC5. J3 
3350 S5CJ3-UIC5. J3-PEC1.J3 
3330 TL-S1C J3+SXC J3+SSCJ3 

3333 IF TL-0 THEN SIC J3-34 : SXC J3-33: SBC J 3-33: TL-100 
3940 SIC J3-51C J3*100/TL 

3950 IF SlCJ3-INTCSlCJ)3>-.5 THEN SI C J3-INTC31C J3 3*1 : BOTO 3980 
3960 SKJ3-INTCS1CJ33 
3980 SXCJ3-SXCJ3-100/TL 

3990 IF SX(J3-INT(SXCJ33>-.5 THEN SXC J3-INTCSXC J3 3*1 sBOTO 4050 
4000 SXCJ3-INTCSXC.133 

4050 SEC J3-C 100-51 CJ3-SXCJ3 3 

4051 IF S5C J3-INTCSSC J3 3>- .5 THEN S3C J 3-INTCSSCJ3 3 + 1 : BOTO 4030 
4055 SSCJ3-INTCSSCJ33 

4030 H3-1: MA-SI CJ3: IF SXCJ)>MA THEN MA-SXC J3 :M3-B 
4040 IF S5CJ3>MA THEN MA-S5CJ3 :M3-3 
4045 ACM33-1 

4050 Ml-1 : 111-S1C J3 i IF SXCJ3<MI THEN MI-SXCJ3:m-5 
4060 IF S5CJ3-<M1 THEN MI-S5C J3 : Ml-3 
4070 ACMI 3-1 

4080 FOR K-l TO 3: IF ACX3-0 THEN 4100 

4090 NEXT K 

4100 HS-K:SISCJ3-"" 

4110 IF M3-1 THEN BOSUB 30000 
4150 IF M3-5 THEN GOSUB 31000 
4130 IF M3-3 THEN BOSUB 35000 
4140 IF MS-1 THEN BOSUB 30000 
41S0 IF MS-5 THEN BOSUB 31000 
4160 IF M5-3 THEN BOSUB 35000 
4170 IF Ml-1 THEN BOSUB 30000 
4180 IF Hl-5 THEN BOSUB 31000 
4190 IF Ml-3 THEN BOSUB 35000 
4500 FOR K-l TO 3: ACK)-0:NEXT K 
4510 NEXT J 
4550 : 

4530 REM ••••••••••••••••♦• 

4540 REM • STAMPA SISTEMA • 

4550 REM •••••••••••••••••• 

4560 : 

4581 FOR J-l TO PR 

4555 IF LENCSISC J3 3-3 THEN 4565 

4563 FOR K-l TO 3-LENCSISC J33 : SISC J3-CHRSC3S3+SISCJ3 

4564 NEXT K 

4565 NEXT J 

4570 PRINT CHRSC 1473X1SXESXBSXSS; CHRSC 183 ; "STAMPA PROBABILITÀ 1 E SISTEMA-; 

4571 PRINT CHRSC 1463 ; XSSXBSXSSX4S 
4575 PRINT XSS; TABC363 ; XSS 

4BB0 PRINT XAS ; : FOR J-l TO 6:PRINT XBS;:NEXT J:PRINT "SQUADRE"; 

4590 FOR J-l TO 6:PRINT XSS; -.NEXT J : PRINT X3S ; "PROBABILITÀ" ; X3S; "SIS" ; XBS 
4300 PRINT XSS ; "1A SQUADR" ; XSS; "SA SQUADR" ; XSS ; " 1 1 1 " ; X5S; " *X 1 " ; XSS; " ’S 1 " ; XSS ; 
4310 PRINT 3PSSPSSPSX5S 

4350 PRINT XAS : : FOR J-l TO 9:PRINT XBS; : NEXT J:PRINT X6S; 

4330 FOR J-l TO S:PRINT XSS;:NEXT J:PRINT X6S; 

4340 FOR J-l TO 3: PRINT X5SX5SX5SX6S ; :NEXT J: PRINT XESXSSXSSXBS 
43SO FOR J-l TO PR 

4360 PRINT X5S; SPCCS3 ; X5S; SPCC93 ; XSS; : FOR K-l TO 4 
4370 PRINT CHRSC593CHRSCB93CHRSC593 ; XSS NEXT K: PRINT 
4380 NEXT J 
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4390 PRINT X7S; : POR J-l TO 9:PRINT X2S ; : NEXT : PR I NT X9S; 

4400 POR J-l IO 9 : PRINT X2S;:NEXT J:PRIHT X9S; 

4410 FOR J-l TO 3: PRINT X2SX2SX2SX9S; : NEXT J:PRINT X2SX2SX2SXBS 
4420 : 

4430 FOR J-l TO PR 

4450 POKE 211,1: POKE 214,4*J:SYS 58640 
4460 1F SO-1 THEN 4480 

4470 PRINT “OSPITANTE” : X5S; “OSPITE” : SPCC4) ; : GQ1Q 4490 
44B0 PRINT SQSC J ,1);TA8C11); SQSC J ,2 J , 

4490 tallS— MIQSCSTRSCS1C J)) , 2, 4) : U2S-M1USCS1RSCSXC J) 1,2,4) 

4500 UI3S-MIDSCSTRSCS2C J) ) , 2 ,4) 

4510 PRINT TABC 24-LENCU1S) ) ; U1S ; TABC28-LENCW2S ) ) ; W2S ; TABI 32-LENC UI3S ) ) ; U3S ; 
4520 PRINT TABC33);CHRSC18);SISCJ) 

4530 NEXT J 

4540 PRINT CHRSC 175 i “1> STAI1PA SU TABULATO” 

4550 PRINT "2> RESTART PR I NT “3> FINE LAUORO“:POKE 198,0 
4560 BET AS: IF AS-“1" THEN 4650 
4S70 IF AS-“2“ THEN RUN 

4580 IF AS-"3“ THEN PRINT CHRSC 147) END 
4590 GOTO 4S60 
4600 : 

4610 REO 

4620 REO • OUTPUT SU STAMPANTE • 

46?® REM 
4b40 : 

4650 OPEN 1,4,7: CLQSE liIF ST<>0 THEN 4560 
4660 OPEN 1,4 

4670 X— 0 : FOR J-1024 TO 2023: A-PEEKC J) 

4671 IF A> 127 THEN A-A-128:RU-1 

4672 IF A<32 THEN AS-CHRSCA+64) 

4674 IF A>31 AND A<64 THEN AS-CHRSCA) 

4676 IF A>63 ANO A <96 THEN AS-CHRSCA+32) 

467B IF A>95 ANO A<128 THEN AS-CHRSCA+64) 

4700 IF RU— 1 THEN PRINTS1 , CHRSC 1B); 

4710 PR1NTS1 ,AS; CHRSC 146) : : RU-0: X-X+l : IF X>39 THEN X-0:PRINTS1 
4730 NEXT J . PRINTS1 : CLOSE 1 : POKE 198.0:BOTO 4560 
9000 : 

9010 REM 

3020 REM ••• INPUT NOMI SQUADRE ••• 

9030 REM 
9040 : 

10000 POKE 211,1: POKE 214,6+J:SYS 58640:PRINT SQSCJ . 1) ; :WS-SQSCJ, 1) 

10005 POKE 204,0: POKE 198,0 

10010 BET AS: IF AS-CHRSC13) ANO WS<>“" THEN 10081 
10020 IF AS-CHRSC20) ANO USO”* THEN 10050 
10025 IF LENCWS3-9 THEN 10010 
10030 IF AS< “A" OR AS>"2" THEN 10010 
10040 PRINT AS; : WS-UIS+AS : BOTO 10010 

10050 POKE 204,1: POKE 207,0: IF LENCU)S)-3 THEN PRINT X5S;:G0T0 10070 
10060 PRINT SPS; 

10070 PRINT CHRSC 157) CHRSC 157) ; SPS; CHRSC 157) ; 

10080 US-LEFTSCUS , LENCUS)-1 ) : POKE 204,0: BOTO .3010 

10081 POKE 204 , 1 : POKE 207,0: IF LENCWS)-9 THEN PRINT X5S:60TO 10085 

10082 PRINT SPS 

10085 IF CK-1 THEN CK-0:GOTO 10100 

10090 5QSCJ,1)-WS: CK-1: POKE 211.11:P0KE 214.6+J-.SYS 58640 
10092 PRINT SQSCJ.2); : WS-SQSC J , 2) : BOTO 10005 
10100 SQSCJ.2) -WS: RETURN 
13000 : 

19010 REM ••••••••••••••<*••••••••• 

19020 REM ••• INPUT RISULATATI ••• 

13030 REM 
19040 t 
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20000 POKE 211 , 22: POKE 214.6+J:SYS SB640 

20001 IF UICl,J)-0 THEN ««-“--.BOTO 20004 

20002 WS-niDSCSTRSCUI(l,J)),2,2) 

20004 PRIMI US t 

20005 POKE 204,0: POKE 190,0 

20010 SET AS:IF AS-CHRSC13) AND USO" THEN 20091 

20020 IF AS-CHRSC20) AND USO -" THEN 20060 

2002S IF LENCWS)-2 THEN 20010 

20030 IF AS< "0“ OR AS>"9» THEN 20010 

20040 IF AS— 0“ ANO WS-** THEN PRINT-0-; :60T0 20091 

20050 PRINT AS ; : WS-WS+ AS : BOTO 20010 

20060 POKE 204,1: POKE 207,0:IF LENCWS)-2 AND CK<>2 THEN PRINT X5S;:B0T0 20080 

20061 IF LENCWS)-2 AND CK-2 THEN PRINT CHRSC10) ; SPS; CHRSC 146) ;: BOTO 20000 
20070 PRINT SPS; 

20080 PRINT CHRSC 157)CHRS( 157); SPS; CHRSC 157); 

20090 WS-LEFTSCUS, LENCUJS)-1 ) : POKE 204.P:SOTO 20010 

20091 POKE 204 , 1 : POKE 207,0:IF LENCWS)-2 AND CK<>2 THEN PRINT X5S;:B0T0 20100 

20092 IF LENCUS)-2 AND CK-2 THEN PRINT CHRSC18) ; SPS; CHRSC 146) ; 

20093 PRINT SPS; 

20100 IF CK-0 THEN UI Cl. J)-UALCWS) : A-NUC1 , J) 

20110 IF CK-1 THEN NUC1 . J)-UALCWS) : A-PEC 1 , J) 

20120 IF CK-2 THEN PEC 1 , J)-UALCWS) : A-UI C2. J) 

20130 IF CK-3 THEN UIC2, J)-UALCUS) : A-NUC2, J) 

20140 IF CK-4 THEN NUC2, J)-UALCUS) : A-PEC2. J) 

20150 IF CK-S THEN PEC2, J) -UAL CUII) : BOTO 20170 

20160 CK-CK+1 : POKE 211 , CK-3+22: POKE 214.6+J:SY9 50640 .BOTO 20200 
20170 CK-0: RETURN 

20200 IF A— 0 THEN WS— BOTO 20005 

20210 WS-MIDSCSTRSCA) ,2, 2) : PRINT WS; : BOTO 20005 

30000 IF S1CJ)>21 THEN SISC J)-SISC J)—l * 

30010 RETURN 

31000 IF SXC J)>21 THEN SISCJ)-91SCJ)+-X“ 

31010 RETURN 

32000 IF S2C J)>21 THEN SISC J)-SISC J)+"2” 

32010 RETURN 
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I sistemi condizionati 

Come imporre condizioni ad un sistema 
per estrarne solo le colonne 
con maggiore probabilità di vincita 



A alieremo ora di come impone 
condizioni alla composizione delle 
colonne da giocare. 

Osservando le colonne vincenti di 
un concorso come il Totocalcio, è im- 
mediato notare che queste hanno ca- 
ratteristiche che. spesso, si ripetono 
nel tempo. 

Sappiamo infatti che una squadra 
che gioca sul proprio campo ha buo- 
ne probabilità di vincita, mentre, gio- 
cando in trasferta, ha maggiori diffi- 
coltà nel portare il punteggio a pro- 
prio favore. Ne segue che, nella gran 
parte dei casi, i segni "1" spadroneg- 
giano nelle colonne vincenti e. di 
conseguenza i segni “2” fanno timi- 
damente la loro comparsa. 

Da questa semplice osservazione, 
ricaviamo un primo dato in base al 
quale imporre condizioni ad un 
sistema. 

E’ possibile, con l'ausilio del pro- 
gramma "Tot 16 Plus”, eliminare da 
un sistema le colonne che hanno un 
numero di segni “I". "X". e "2", al di 
fuori di un certo intervallo desi- 
derato. 

Ad esempio, stabiliamo che il nu- 
mero massi mo di segni “ I" debba es- 
sere pari a 6. nel sistema da sviluppa- 
re seguente: 


Le colonne che compongono il si- 
stema integrale sono: 

a/inillllXXXX 

b/ixnuuxxxx 

C/J21IIIUXXXX 

d/XUlllllXXXX 

e/xxilimxxxx • 

(/' X2IIÌ1UXXXX * 
g/ 21 III 1IIXXXX 

h/2xnnnxxxx • 

i/ 221ÌI II IXXXX • 

II programma selezionerà le sole 
quattro colonne indicate con l’asteri- 
sco. in quanto le restanti non rientra- 
no nei limiti stabiliti (massimo 6 se- 
gni “1“). 


Avete mai visto una colonna vin- 
cente con dicci segni “X" di seguito? 
Molto probabilmente no. 

Ecco quindi un nuovo criterio in 
base al quale elaborare i sistemi 

Il compito del lettore sarà quello di 
stabilire quale sia il numero minimo 
e massimo di segni consecutivi T, 
“X” e ”2’*; al resto penserà il C/64 
(corredato, ovviamente, del program- 
ma “Tot 16 Plus"). 

H problema delle Accoppiate. Ter- 
zine e Quartine, è forse più comples- 
so c richiede di scendere nei det- 
tagli. 

Consideriamo una colonna che 
faccia da cavia per i nostri espe- 


X 

X 


I primi due segni (IX) formano 
un'accoppiata, i due successivi (XX) 
un'altra, e cosi via. 

Quello che interessa sapere non è 
quali accoppiate siano presenti nella 
colonna, ma il numero di volte che u- 
na qualsiasi accoppiata si ripeta al- 
l’interno della stessa. 

Nell’esempio precedente tutte le ac- 
coppiate si ripetono una sola volta, 
ad eccezione di “XX". presente due 
volte. 

Possiamo pertanto stabilire un li- 
mite massimo (e/o minimo) di ripeti- 
zioni valido per qualsiasi accoppia- 
ta presente nelle colonne del sistema 
integrale da sviluppare 

II controllo delle Terzine e Quarti- 
ne è dei tutto analogo a quello delle 
accoppiate, con la sola differenza 
che si considerano, rispettivamente. 
3 e 4 segni per volta. 

A questo proposito è bene notare 
che alcuni programmi in commercio 
trattano le accoppiate, terzine e quar- 
tine in modo diverso da quanto 
detto finora. 

In particolare, nel computo delle 
accoppiate, considerano i primi due 
segni come una accoppiata, ed il se- 
condo. unitamente al terzo, come 
un'altra accoppiata, e cosi via. 

Tale metodo è fondamentalmente 
errato da) momento che calcola un 
numero di accoppiate superiore a 
quelle effettivamente presenti in 
una colonna. 

Analizziamo la seguente colonna: 


(1 pronostici con i puntini, non es- 
sendo indispensabili al discorsa so- 
no omessi). 

I primi due segni formano l'accop- 
piata "11". 

II metodo che riteniamo errato con- 
sidera i successivi due segni (a partire 
dal secondo, anziché dal terzo), co- 
me una seconda accoppiata “11": e 
dò i impossibile perchè i segni presi 
in considerazione finora sono sol- 
tanto 3 (due accoppiate "devono" ba- 
sarsi su almeno 4 segni) Semmai si 
può parlare di presenza di una 
terzina. 

Il nostro programma non commet- 
te tale errore, considerando, come ac- 
coppiate, blocchi successivi di due 
segni; dò vale, ovviamente, anche 
per le terzine e quartine. 

Al di fuori delle considerazioni sta- 
tistiche. sono previste dal program- 
ma altre due opzioni per limitare il 
numero di colonne del sistema. 

La prima i quella delle “Colonne 
impossibili". 

Se. ad esempio, siamo incerti sul ri- 
sultato di tre incontri della schedina, 
siamo costretti ad assegnare tre 
triple. 

Sebbene i tre risultati siano incerti, 
possiamo tuttavia ragionevolmente 
escludere la possibilità che le tre par- 
tite si condudana ciascuna, con un 
risultato nulla 

E’ possibile prevedere un qualsiasi 
risultato perle tre partite, esdudendo 
solo l’eventualità che le tre squadre 
pareggino? 

La risposta affermativa è data dal- 
l’opzione “Colonne impossibili". 

Basterà inserire una colonna im- 
possibile che contenga un segno “3C* 
in corrispondenza di dascuno dei tré 
incontri, ed il programma non pren- 
derà in considerazione le colonne 
del sistema integrale che prevedano 
il pareggio contemporaneo per i tre 
incontri. 

Naturalmente resterà salva la pos- 
sibilità di pareggio in uno solo, o al 
massimo due. dei tre pronostici 
considerati. 

L'altra opzione è quella della elimi- 
nazione di "Gruppi di segni". 

Se si intende eliminare una data se- 
quenza di segni in qualsiasi posizio- 
ne si trovi all'interno delle colonne. 


basterà digitare tale sequenza, quan- 
do il programma ne farà richiesta. 

Volenda ad esempio, eliminare la 
sequenza “XXI" dal seguente si- 
stema- 


...digiteremo, quando richiesto. 
“XXI", ed il computer opererà la se- 
lezione nel modo seguente: 


a/ 1X11 111 lllll 1 

b/ ixixi ninni 

e/lXXJlIlllUll ' 
d/ ÌXXXI 1111 1111 
e/ 1211111111111 

jy 121x1 n inni 

g/ 12X1111111111 

h/ i2xxi illuni 

l/XXlllllllllll • 
J/XXlXlllllllll ■ 
k/XXXlllllllIll 
l/XXXXIllllllll 
m/ X21 1 1 1 1 1 1 1 1 1 1 
n/ X21XU1111U1 
a/XXXUinillll 
p/ X2XXI1 lllllll 


Tutte le colonne con l'asterisco ver- 
ranno eliminate, in quanto conten- 
gono. in diverse posizioni, la sequen- 
za “XXI". 

Infine il programma ha la possibi- 
lità di effettuare automaticamente, 
durante la selezione delle colonne in 
base ai condizionamenti imposti, an- 
che la riduzione o la bi-riduzione. 

I lettori che non sappiano come 
funzionino le “Riduzioni", potranno 
trovare, nelle pagine successive, un 
paragrafo appositamente dedicato 
all'argomento. 


Come usare ‘Tot 16 Plus" 

Passiamo ora ad esaminare il fun- 
zionamento del programma TOT 16 


2? 




Plus Vl.O". 

Chi t in possesso dei programmi su 
supporto magnetico può. ovviamen- 
te. trascurare di approfondire le istru- 
zioni relative alla digitazione dei 
programmi, ma esaminare soltanto 
le procedure di caricamento e di 
registrazione. 

Il software è stato diviso in due par- 
ti. per altrettanti motivi: 

1) Il primo programma ("Loader 
Tot 16") carica in memoria le routine 
in Lm. di supporto al programma 
principale. 

Avendo inserito un controllo auto- 
matico per la corretta digitazione 
delle istruzioni DATA, digiterete solo 
questa parte del programma e. se ri- 
sulterà corretta, passerete al pro- 
gramma principale, altrimenti il 
computer indicherà la linea conte- 
nente l'errore. 

2) Separando le istruzioni per 0 cari- 
camento in memoria delle routine 
Lm. rimane libera una maggior 
quantità di memoria per ['immagaz- 
zinamento delle colonne selezio- 
nate. 

Dopo aver digitato (o meglio, cari- 
cato) i programmi i consigliabile 
salvarli prima di procedere alla loro 
attivazione; in tal modo eviterete di 
perdere tutto il lavoro fatto fino a 
quel momento in caso di crash del si- 
stema dovuto ad errata digitazione 
dei listati. 


La prima volta che intendete utiliz- 
zare "Tot 16 Plus" procuratevi un na- 
stro vergine o un disco appena for- 
mattato. ed operate nel modo se- 
guente: 

Portate in memoria il programma 
caricatore e date il RUN. 

Noterete sul video un conteggio al- 
la rovescia (apparentemente lento); 
attendete fino aU'arrivo dello zero ed 
indicate, poi. quale periferica usate 
(nastro o disco), premendo il tasto 
corrispondente all'iniziale del nome 
della perferica usata. Verranno quin- 
di salvate, sul supporto prescelto (di 
cui abbiamo parlato poc’anzi), le 
routine in Lm di “Tot 16 Plus" in un 
formato tale per cui, le volte successi- 
ve, potrete caricarle ad una velocità 
nettamente maggiore. 

Dopo il salvataggio delle routine, 
comparirà sul videa probabilmente, 
un messaggio di "Synta* error": non 
preoccupatevi ma spegnete e riac- 
cendete il computer. 

Una volta ottenuta la registrazione, 
fi programma caricatore, come detto 
prima, non è più indispensabile: ba- 
sterà infatti caricarle con: 

Load "routines tot 16“ 1,1 (per il na- 
stro). oppure 

Load "routines tot 16".8.1 (per il 
disco). 

Al termine del caricamento impara 
tire NEW. caricare il programma 


"Tot 16 Plus" (che avrete precedente- 
mente digitato, verificato e salvato) 
e lanciarlo. 

La prima domanda die verrà 
posta t: 

"Su quanti pronastici lavori?" 

Digitate un numero compreso tra 
12 e 16. 

Successivamente dovrete indicare 
il costo di una colonna (attualmente 
500 lire). 

Sullo schermo apparirà una griglia 
numerata, simile a quella presente 
sulle schedine, che farìlitcrà l'intro- 
duzione del sistema. 

Ad inserimento terminato verrà 
chiesta conferma di quanto digitato: 
premendo il tasto ”N" si corregge 
l'inserimento, mentre con "S" si 
conferma. 

Alla domanda-, 

“Vuoi la limitazione de! numero di 
segni?" 

-rispondete con "S" se volete porre 
delle condizioni sul numero di segni 
“1". “X" e “2". altrimenti con "N" sal- 
tate questa opzione. 

Rispondendo affermati vamente, 
dovrete introdurre il numero minimo 
e massimo di presenze nelle colonne 
peri tre segni 

Nelle pagine seguenti troverete al- 
cuni esempi di videa te. 

Una volta inseriti i condiziona- 
menti. digitate “S" per continuare o 
"N" per correggere. 

Successivamente verrà chiesto se si 
vuole limitare il numero di segni 
consecutivi 

Rispondendo con "N" si salta l’op- 
zione, mentre con “S" apparirà una 
schermata simile alla precedente, e 
bisognerà introdurre il numero mini- 
mo e massimo di segni consecutivi 
"1". "X" e “2" ammessi. 

In seguito verrà chiesto se si vuole 
limitare il numero di accoppiate, ter- 
zine e quartine. 

Anche qui si deve digitare il nume- 
ro minimo e massimo e. successi va- 
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mente, confermare premendo "S" o 
ripetere rìnscrimento con "N". 

A questo punto 4 possibile inserire 
le "colonne impossibili'. 

Sulla sinistra dello schermo, verrà 
visualizzato il sistema-base, e alla 
sua destra appariranno dieci griglie 
nelle quali inserire le colonne impos- 
sibili che sono, appunto, dieci, prù 
che sufficienti anche perii più fanta- 
sioso dei giocatori. 

Per inserirle basta digitare un se- 
gno in corrispondenza dei pronostici 
per i quali si vuole eliminare un certo 
risultato, e premere il tasto Return “a 
vuoto" per gli altri incontri. 

Ad inserimento terminato, premete 
il tasto di freccia a sinistra; verrà 
chiesta conferma di quanto digitato. 

Premendo "N". avrete la possibilità 
di correggere, mentre con “S" ri pro- 
segue dopo un'attesa di qualche 
secondo. 

Dopo le colonne impossibili, 4 la 
volta dei “gruppi di segni generici". 

Se si decide di utilizzare tale opzio- 
ne. premendo "S” apparirà sulla sini- 
stra dello schermo, come nel caso 
precedente, il sistema-base, ed alla 
sua destra le dieci griglie. 
L'inserimento dei gruppi di segni 
da eliminare si effettua digitando la 
sequenza, e premendo Return. U pro- 
gramma passerà alla griglia successi- 
va: non 4 possibile, infatti, lasciare 
degli spazi tra un segno ed il successi- 
vo. come per le colonne impossibili, 
dato che la ricerca della sequenza 4 
fatta per qualunque posizione all'in- 
terno della colonna sviluppata. 

Anche in questo caso 4 necessario 
attendere qualche secondo dopo aver 
premuto il tasto di freccia a sinistra e 
ancora un po' dopo la conferma. 
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In seguito a tutte queste domande, 
il lettore potrebbe domandarsi se 
questo “benedetto" programma ela- 
borerà mai qualcosa, oppure si tratta 
di una Adventure difficilissima, che 
nessuno riuscirà mai a risolvere. 

Niente paura: manca poco per sod- 
disfare l'ultima curiosità del vostro 
C/64 (...che ficcanaso!). 

L'ultimo passo, prima di vedere al- 
l'opera il vostro elaboratore, 4 quello 
di scegliere il livello di ottimiz- 
zazione: 

Premendo “1". si ottiene una ridu- 
zione delle colonne selezionate (oltre 
a tutti i condizionamenti imposti), 
con “2” si ottiene la bi-riduzione. e 
con "3" si ha lo sviluppo integrale del 
sistema. cio4 nessuna ottimizzazio- 
ne. ma solo l'applicazione dei con- 
dizionamenti. 

Finalmente apparirà la schermata 
sullo status dell'elaborazione duran- 
te il suo svolgimento. 

Mentre il computer selezionerà le 
colonne del sistema, infatti, sul video 
verranno visualizzati i seguenti dati: 

- Numero colonne da elaborare (quelle 
rimanenti, fino ad arrivare a 0) 

• Numero colonne selezionate 

- Costo de I sistema 

In questo modo l'utente può deci- 
dere. sulla base delle informaziqni 
circa l'andamento dell'elaborazione, 
di interrompere l'operazione pre- 
mendo il tasto “STOP". 

Data l'elevata velocità di elabora- 
zione. 4 possibile, premendo Shift (o 
Shift Lock). interromperla per poi ri- 
prenderla quando i medesimi tasti 
verranno rilasciati 

Se le colonne da trattare sono po- 
che. la velocità di elaborazione sarà 
tale che renderà visibile quasi subito 
la schermata successiva. 


Terminato lo sviluppo sarà possibi- 
le trattare i dati grazie ad un menu 
sullo schermo che prevede 4 op- 
zioni: 

1) Registra colonne 

2) Stampa colonne tu video 

3) Stampa colonne su tabulato 

4) Restart 

Se non appaiono altri messaggi l'e- 
laborazione 4 andata a buon fine: al- 
trimenti si 4 verificato uno dei due e- 
venti che seguono: 

1 - Elaborazione non terminata per la 
pressione dei tasto Run/Stop. 

2- Elaborazione non terminata per su- 
peramento capacità di memoria. 

In ogni caso, anche quando si pre- 
senti uno dei due messaggi. 4 possibi- 
le usufruire delle opzioni indicate 
dal menu. 

Premendo “1". si registrano le co- 
lonne selezionate (su disco o nastro) 
indicando la periferica con la sua 
iniziale. 

Premendo “2” otterremo l'output su 
video; questo potrà essere bloccato 
temporaneamente premendo un qual- 
siasi tasto, e riprendendo allo 
stesso modo. 

Con il tasto di freccia a sinistra, in- 
vece, si ritorna al menu precedente. 

La terza opzione 4 uguale alla pre- 
cedente. con la sola differenza che 
l’output viene dirottato verso la 
stampante. 

Infine, digitando “4". si ripane con 
il programma, mentre i dati prece- 
denti verranno mcntenuti in me- 
moria. 

Il computer chiederà se intendete 
introdurre un nuovo sistema o se uti- 
lizzare quello precedente, poi farà al- 
trettanto con i condizionamenti. 


Note per gli inesperti 

Può capitare, in alcuni casi, che il 
computer indichi 0 colonne come ri- 
sultato di una elaborazione. 

Generalmente l'utente 4 portato a 
pensare che si tratti di un errore 
del programma. 


In questi casi, controllando attenta- 
mente le condizioni imposte, notere- 
mo che queste risultano troppo re- 
strittive. con la conseguenza che nes- 
suna colonna del sistema riesce a 
soddifarle lune contemporanea- 
mente. 

Ad esempio, con il seguente si- 
stema-base: 


1 

ir 

i 

1» 


ix 

II 
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provate ad assegnare i seguenti 
condizionamenti: 


w- mimmi 


A) Numero segni 

Segno 7 ' (minimo) :S 
Segno X' (minimo) :1 
Segno 2’ (minimo) :1 


CONFERMI (S/H )? 


Segno T (massimo): IO 
Segno TC (massimo):2 
Segno 2 ' (massimo): 1 

B) Consecutivi tà 

Consecutività minima 7 ' .7 
Consecutività minima 7T :l 
Consecutività minima 2' .7 
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Consecutività massima 7 ':8 

Consecutività massima TC:1 CONFERMI < S/N > 

Consecutività massima 2\1 


C) Colonne impossibili 

Due colonne di cui la prima con un 
segno "X" in corrispondenza del 
quinto incontro, e la seconda con un 
segno “2" per lo stesso incontro. 
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In base a tali condizioni, il pro- 
gramma non selezionerà alcuna co- 
lonna. in quanto nessuna soddisfa 
contemporaneamente tutti i parame- 
tri di condizionamento. 
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Non inserendo le colonne impossi- 
bili sarebbero state selezionate le se- 
guenti colonne: 




PREMI G QUANDO HAI FINITO. 


1/11X2X11111111 
2/1X1X211111111 
3/1X12X11111111 
4/1X21X11111111 
3/12X1X11111111 
6/X11X21U11111 
7/X112X1I111U1 
8/X1X1211111111 
9/ X121X11 1 111 1 1 
1Q/X211X11UI111 
11/21X1X11111111 
12/2X11X11111111 



Dal momento che tutte queste co- 
lonne hanno, in corrispondenza del 
quinto pronostico, il segno “X" oppu- 
re il segno “2" (e che con le colonne 
impossibili inserite desideriamo eli- 
minare proprio quelle che hanno un 
segno “X” o “2" al quinto incontro), il 
computer indicherà 0 colonne se- 
lezionate. 

In questo caso particolare sarebbe 
stato diflìdle individuare il perchè 
della risposta apparentemente stra- 
na. senza sviluppare manualmente 
il sistema. 

Un altro errore frequentemente 
commesso dagli inesperti i quello di 
pretendere che un sistema formato, 
ad esempio, da 3 doppie, debba dare, 
a pariti di condizionamenti ugual 
numero di colonne rispetto ad un al- 
tro. formato sempre da 3 doppie, an- 
che se disposte in modo diverso. 

Vediamo con un esempio perchè 
questa supposizione non corrispon- 
da alla realtà. 

Prendiamo due sistemi diversi for- 
mati da tre doppie ciascuno: 








Poniamo ad entrambi un'unica 
condizione; i segni 2 non devono mai 
essere consecutivi. 

Salta subito all'occhio che nel pri- 
mo sistema vi saranno alcune colon- 
ne con due segni “2" di seguito: 

a/ IXXllllllim 
b/ immillili 
c/ immillili 
d/ 1221111111111 • 
e/XXXllllIlllll 
f/ XX 211111111 U 
S/X 2 X 1111111 U 1 
h/X2211llllllll • 

Le colonne segnate con l'asterisco 
verranno quindi scartate. 

Nel secondo sistema, invece, non e- 
siste alcuna colonna con due segni 
“2” consecutivi, e pertanto tutte le co- 
lonne saranno selezionate come 
valide: 

a/XlXllllllllll 
b/X 12111 lllllll 
c/XXXllllllllll 
d/ XX 2 U 11111 U 1 
e/ 21 X 1111111111 
J / 2121111111111 
g/ 2 XX 1 U 1111111 
V 2 X 21111111111 


Un esempio d’uso 

Chi possiede il supporto magnetico 
contenente tutti i programmi di cui 
parliamo nel presente fascicolo, può. 
ovviamente, saltare questo paragrafo 
(d mancherebbe altro!) oppure limi- 
tarsi a leggerlo per comprendere a 
fondo il funzionamento di Tot 16 
Plus". 

Gli altri, invece, è bene che lo legga- 
no con la massima attenzione. 

Dopo aver caricato i listati (e supe- 
rati eventuali “Syntax error". “Out of 
data error" e simili, dovuti senza 
dubbio ad errori di trascrizione nel 
caso li abbiate digitati), giunge il mo- 
mento di testare a fondo il program- 
ma per evitate che un errore di tra- 
scrizione (che non generi errore for- 
male), modifichi tuttavia i risultati 
dell'elaborazione. 


Per far questo potete caricare il pro- 
gramma seguendo la procedura de- 
scrina in precedenza; in seguito digi- 
tare, quando richiesto, i seguenti 
parametri; 

Sistema base (13 pronostìd 500 lire 
per colonna) 

IX 

1 


12 

X 

1 X 2 


1 

IX 

12 


X 2 

1 

1 X 2 

Dopo l’introduzione del sistema 
base, alla domanda "Vuoi la limita- 
zione del numero di segni?" rispon- 
dete con "S". 

Digitate ora i seguenti valori: 

Segno “1" (Minimo) : 4 
Segno "X (Minimo) : 2 
Segno “2" (Minimo) : 0 
Segno "I" (Massimo): 7 
Segno “X (Massimo): 5 
Segno "2" (Massimo): 3 

alla richiesta di conferma premete il 
tasto “S". 

Quando il calcolatore chiederà se 
intendete limitare i segni consecutivi, 
digitate “S”. poi i seguenti valori: 

Consecutività minima segno 7 ' :1 
Consecutività minima segno T :1 
Consecutività minima segno '2 :1 

Consecutività massima segno 7 ' :4 
Consecutività massima segno X :2 
Consecutività massima segno '2' .7 

Successivamente, premete ~S~ per 
confermare i dati inseriti ed ancora 
“S" per limitare il numero di ac- 
coppiate. 

1 parametri perla limitazione delle 
accoppiate sono: 


Sumero minimo accoppiate : I 
Sumero minimo terzine : 1 
Sumero minimo quartine : 1 

Sumero massimo accoppiate: 2 
Sumero massimo terzine : 2 
Sumero massimo quartine : 2 

Per quanto riguarda le colonne im- 
possibili inseritene una sola conte- 
nente un segno “X” alla prima, alla 
sesta, ed alla tredicesima posizione 
(in corrispondenza degli altri prono- 
stiri battete Return), poi premete il 
tasto di freccia a sinistra ed “S" per 
confermare dopo l’attesa di alcuni 
secondi tra luna c l’altra. 

Infine, dopo aver risposto afferma- 
tivamente alla richiesta di elimina- 
zione di gruppi di segni, digitate la 
sequenza 12X2 e premete il tasto di 
freccia a sinistra. 

A questo punto apparirò sullo 
schermo il menu di ottimizzazione; 
premete “ I " per ottenere la riduzione 
delle colonne selezionate. 

Terminata la fase di selezione, che 
dura pochi secondi, il calcolatore di- 
rà di aver elaborato, e memorizzato. 
25 colonne. 

In ogni caso, per una ulteriore con- 
ferma. potete effettuare una stampa 
delle colonne, su video o stampante, 
e confrontarle con le seguenti: 

1) U11XX1X21X1X 

2) 1U1XX1X21212 

3) 1111X21X21X12 

4) 111 1X21X21 21X 

5) 1 1 12X1 IX21X1X 

6) IU2XXU21X1X 

7) 1 1 12XX1XUX1X 

8) 1112XX1X11212 

9) 11I2XX 1X2 1X11 

10) 1112XX1X2I21X 

11) XI 11X1 1X2121X 

12) XI UXX1 121X12 

13) XI 1 1 XXI XI 1X12 

14) XI 1 1 XX 1X21 XI I 
13)X1UX2I121XIX 

16) XI 1 1X21X1 1X1X 

17) XU1X21XU212 

18) XII 1X21X21211 

19) X112X11I2I2IX 

20) XI 12X11X1 121X 

21) XI 12X1 1X21211 
22IX112XX1I1IXI2 

23) XI I2XXI 121X11 

24) XI12XX1XI1X11 
23) XI 12XXIX21XI2 
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Conclusa la mutazione dell'argo- 
mento non rimane che augurane la 
classica "Buona fortuna!". 


Per i più esperti 

Chi intenda manipolare con propri 
programmi i file generati da Tot 16 
Plus V1.0 e dagli altri programmi di 
questo fascicolo, troverà qui di segui- 
to il formato degli stessi: 

• Siringa Totl6Plus.D 

• Sumero di pronastici per colonna 

• Sumero di colonne contenute nel 
file 

• Sistema-base 

Le colonne sono registrate inseren- 
do. in ogni coppia di bit di ciascun 
byte, il codice di un segno, in accor- 
do con la seguente tabella: 

Segno 7" =/ 

Segno ~X" = 2 
Segno ”2" “J 

Di conseguenza, leggendo con uni- 
struzionc GET# un dato, bisognerà 
dapprima trasformarlo in valore A- 
SCI1 con l'istruzione Basic “ASC”, 
poi decodificarne il valore in segni 
"1". “X" e “2”. 

Ad esempio, supponiamo che 
con- 

GET*IM 

-troviamo associata alla variabile 
AS. il valore 185. Sappiamo che tale 
valore, in binario, corrisponde a: 

185 - 101 11001 

Considerando le coppie di bit, a 
partire da destra verso sinistra, otte- 
remo quattro valori (compresi tra 1 e 
3). corrispondenti ai segni della sche- 
dina: nel caso specifico otterremo: 

byte 0/1: 01 - 7“ 
byte 2/3: IO ■= “JT 
byte 4/5: Il - "2" 
byte 6/7: 10 - "JT 

Dopo aver apportato tutte le modi- 
fiche volute, è necessario alterare al- 
cuni valori posti all'interno del 
programma. 

Fate “girare" la copia definitiva del 


programma, utilizzando tutte le pos- 1X2 
sibili opzioni poi interrompete rese- 1X2 

cuzione: per far questo dovrete tem- 1X2 

po rancamente sostituire- 1X2 


POSE 808225 
...con... 


-è sufficiente dividerlo in tre sistemi 
da 12 triple e con una fissa iniziale: in 


POSE 808.237 

-nella linea 4 (non dimenticate di ri- 
mettere il valore originario prima di 
salvare il programma modificato). 

Dovrete quindi modificare il posi- 
zionamento del Top della memoria 
Basic (byte 55 e 56) ed i puntatori di i- 
nizio della zona utilizzata per la me- 
morizzazione delle colonne. 

In base alla memoria occupata dal 
Basic del programma modificata bi- 
sogna ora alterare, alla linea 4. il con- 
tenuto delle locazioni di memoria 55 
e 56. e alla riga 307 quello delle loca- 
zioni 49762/ 49763 e 49768/ 49769 con 
i medesimi inseriti nelle locazioni 55 
e 56. 


Prestazioni 

Per gli amanti delle autistiche, ecco 
di seguito una tabella con i dati rela- 
tivi alle prestazioni del programma: 

• Velocità di elaborazione: fino a 
47.54 colonne al secondo. 

• Capacità di memoria: 

- su 12 pronostici: 7900 colonne. 

- su 13 pronostici: 7293 colonne. 

- su 14 pronostici: 6772 colonne. 

- su 15 pronostici: 6320 colonne. 

- su 16 pronostici: 5925 colonne. 

A proposito dei limiti di memoria 
del calcolatore, è possibile ovviare al- 
l'i neon veniente dividendo il sistema 
in più parti; ad esempio, volendo ela- 
borare il seguente sistema- 


li 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 
1X2 1X2 1X2 


E" importante notare che i sistemi 
condizionati sono più efficienti per 
lo sviluppo di sistemi piuttosto consi- 
stenti. mentre rendono meno a mano 
a mano che si passa a sistemi più 
modesti. 

Tale particolarità t dovuta al fatto 
che sistemi molto grossi contengono 
un'alu percentuale di colonne “inu- 
tili”. cioè di colonne che non si sono 
mai presenute come vincenti: sono 
un esempio le seguenti: 


2XX2 
22X2 
22X2 
22XX 
22XX 
22XX 
22XX 
22X2 
2 2X2 
22X2 
22X2 
22X2 
22X2 


E* chiaro che un sistema da 13 tri- 
ple contiene tutte le colonne si- 

mili alle precedenti e che quindi la 
percentuale di scarto aumenta, a pa- 
rità di condizionamenti, rispetto ad 
un sistema più piccolo. 

Pertanta se si intendono trattare si- 
stemi molto piccoli,èconsigliabilco- 
rien tarsi verso i sistemi "Ridotti", op- 
pure a “Correzione d’errore". 
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10 REM ROUTINES L/M 
20 REM DI TOT 16 PLUS 1.0 
30 : 

40 REM BY: ANTONIO PASTORELLI 

41 POKE 53280. OiPOKE 53281, OiPRl 
NT CHR*(5> 

42 PRINT CHR* i 147 ) CHR* t 18 ) " »»* 
CARICATORE ROUTINES L/M TOT 16 * 

44 PRINT CHR* l 17 /CHR* ( 17 ) CHR* (17 
) "ATTENDERE « " ; 

50 CK*0 : LC* 49999 s TL“ 1840 1 FOR J»1 
TO 92 

60 FOR K-l TO 20 i READ A*:A1*-LEF 
T*<A», li : A2**RI GHT* l A4 , 1 ) 

62 IF Al*/ "9" THEN A1«ASC(A1*) -5 
5 (GOTO 66 
64 A1-VALCA1*) 

66 IF A2*>"9" THEN A2-ASC < A2* ) -5 
5 «GOTO 73 
71 A2-VALIA2*) 

73 A S A1 * 16+A2 : CK a CK+A i LC*LC+ 1 jTL 
■TL - 1 » PR I NT " ÙL»W*«fr TAB ( 10 ) " 

74 PRINT CHR* ( 145 )TAB ( 10)TL 
60 POKE LC, A 

90 NEXTK 

100 READ AtlF AOCK THEN 120 
110 CK-OiNEXT J : GOTO 200 
120 PRINTCHR*< 147) "ERRORE DI TRA 
SCRIZIONE DATI IN" : 

130 PRINT PEEK(63> +256*PEEK(64) " 
0, A2, 07, BD, 33, C2, C9, 30, FO, 2723 

1052 DAT A04 , DE , 33 , C2 , 60 , A9 , 39 , 9D 
, 33, C2, CA, 10, ED, 60, A9, 00, 85, FD, A 
9,01,2471 

1053 DATA8S, 02, A9, 88, 85, FB , A9, CI 
,8S,FC, A9, 01,85, FE,8D,A8, 02, A6,0 
2, BD , 2796 

1054 DATA28, C2, 8D, A7 , 02, A4, FE, B9 
, OD, CO, AC, A8, 02, 88, DI , FB, DO, 1F,E 
E, A8.2935 

1055 DATA02.AD, A8, 02, A6, 02, DD, 3A 
, C2, FO, 05,90, 03, 4C, D4, C7 , A5, FE, 1 
8, 6D, 2417 

1056 DATAA8, 02, 38, E9, 01 , A8, 4C, 8F 
,C7,E6,FE, A9,01,8D, A8, 02, CE, A7, O 
2, AD. 2559 

1057 DATAA7 , 02, DO, CS , E6, 02, A5, 02 
, CD, 28, C2, FO, 08, 90, 06, 60, A9, 01, 8 
5, FD, 2462 

1058 DAT A60 , A5 , FB , 18, 6D , 00 , CO , 65 


, FB, 90, 02, E6, FC, 4C, 7E, C7, A2, 09, A 
0,04,2585 

1059 DATA18, BS, 4A, C2, 7D, 4E, C2, 38 
,E9,30,C9,39,F0, 1C.90, 1A.38.E9.0 
A.9D.2363 

1060 DATA4E, C2, AB, 01 , 85, 02, CA, 88 
, FO, 16, AS, 02, DO, 04, 18, 4C, ED,C7,3 
8, 4C, 2224 

1061 DAT AED , C7 , 9D , 4E , C2 , A9 , 00 , 85 
, 02, 4C, 06, C8, A5, 02, DO, 03, 18,90,0 
1,38, 2054 

1062 DATABD, 4E, C2, 69, 00, C9 , 3A, DO 
, OD, AO, 01 , 85,02, A9, 30, 9D, 4E, C2, C 

A, DO, 2407 

1063 DATAE3, 60, 9D, 4E, C2, 60, A9 , 01 
, 85, FB, AO, 17.A2.05, 18, 20, FO, FF, A 
2,01,2466 

1064 DATABD, 32, C2, 20, D2,FF,E8,E0 
, 09. FO, 14, E8, FB, A5, FB, C9, 03, DO, E 
D, A9.3370 

1065 DAT AOO , 85 , FB , A9 , 2E , 20 , D2 , FF 
, 4C, 50, C8, 60, A9, 00, 85, FB, AO, 16, A 
2,08,2456 

1066. DATA18, 20, FO, FF , A2, 01 , BD, 4E 
, C2, 20, D2, FF, E8, EO, OA, FO, 14, E6, F 

B, A5.3044 

1067 DATAFB, C9, 03, DO, ED, A9, 00, 85 
,FB, A9,2E,20,D2,FF,4C,7E,C8,60, A 
9,01,2833 

1068 DATA85,FB,A0, 17. A2.08, 18,20 
, FO, FF, A2, 01 , BD, 59, C2, 20, D2, FF, E 
6, EO, 2876 

1069 DATA09.F0, 14.E6.FB, A5.FB.C8 
, 03, DO, ED, A9, 00, 85, FB, A9, 2E, 20, D 
2, FF , 3080 

1070 DATA4C, AC, C8, 60, A2, 09, BD, 58 
,C2, 18 , 69,01, C9, 39, FO, OD, 90, OB, A 
9,30,2199 

1071 DATA9D, 58, C2, CA, DO, EC, 4C, E8 
,C8,9D, 58,02,60, AE,62,C2, AC,63,C 
2 06 3193 

1072’ DATAFB, 84, FC , AO, 00, A2, 01 , 8A 
, 46, BD, OD, CO, AE, 64, C2, FO, OD, OA, 0 
A, CA, 2505 

1073 DAT ADO, FB, 8D, 67, C2, B1 , FB, OD 
, 67, C2, 91 , FB, EE, 64, C2, AD, 64, C2, C 
9,04,3235 

1074 DATAFO, OF, BO, OD, 68, AA, E8, EC 
, 00, CO, FO. D3, 90, DI , 4C, 39, C9. A9, 0 
0.8D.2626 

1075 DATA64, C2, E6, FB, A5, FB, DO, E8 
, E6, FC, 4C, 1C, C9, A6, FB, A4, FC, 6E, 6 
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2, 02, 3685 

1076 DAT ASC, 63,02, CO, 9F , DO, Od, EO 
, 04,90,05, A9, 01, 8D.65.CZ, 60, A9,0 
0,85,2574 

1077 DATA02.8D, 67,02, AD, 68, 02,85 
, FB, AD, 69,02,85, FC,A9, 00, 8D,6B,C 
2, A2, 2925 

1078 DATA01, 8A, 48, AO, 00, B1 , FB, A6 
, 02, 3D, CF, 09, EO, 00, FO, 05, 4A, 4A, C 
A, DO, 2463 

1070 DATAFB, 8D, 6A, 02, 68, AA, BD, OD 
, CO, CD, 6A, 02. DO, 03, EE, 6B, 02, E6, 0 
2.A5.3012 

1080 DATA02, CO, 03, FO, OC, 90, OA, A9 
, 00, 85,02, E6, FB, DO, 02, E6, FC. E8, E 
0,00,2557 ' 

1081 DATACO, FO, 02, 00, CO, AD, 00, CO 
, 36, ED, 58, 02, OD, 6B, 02, FO, 14,90, 1 
2, A5 , 2995 

1082 . DATAFB, CD, 62, 02, FO, 03, 40,62 
, 09, A5, FC, CD, 63, 02, DO, F6, 60, A9, 0 
1 , 8D, 3142 

1083 DATA67, 02, 60, 03, OC, 30, CO, 20 
, 50, 03, 20, 16, 07, A5, FD, DO, 50, AD, 2 
F, CO, 2338 


1084 DATAFO, 07, 20,28,04, A5.FD.D0 
. 50, 20, 7S, 04, A5, FD, DO, 49, 20, 24,0 
5, A5, 2695 

1085 DATAFD, DO, 42, 20, OE, 06, A5, FD 
, DO, 3B, AD, 28, 02, FO, 07, 20, 6E, 07, A 
5, FD, 2869 

1086 DATADO, 2F, AD, 56, 02, FO, 1B, AD 
, 82, 02, CD, 68, 02, DO, OB, AD, 63.02,0 
0,69,2940 

1087 DATAC2, DO, 03, 40, 2A, CA, 20, 51 
, 09, AD, 67,02, DO, OF, 20, E8, 07, 20. C 
0,08,2631 

1088 DATA20, E9, 08, 20, 9E, 08, 20, 70 
, 08, 20, 58, 07, 20,42, 08, AD, 65, 02, D 
0,25,2529 

1089 DATAA5, 05, 09, 3F, FO, 20, AD, 8D 
, 02, 09, 01, DO, 03, 40, 4A, CA, A2, 08, B 
D, 32, 2388 

1090 DATAC2, 09, 30, DO, 06, CA, DO, F6 
, 40, 69, CA, 20, 09,03, 40, D3, 09, 60, A 
9,01,2878 

1091 DATA8D, 60,02, 60, 00, 00, 00, 00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 0 
0,00,539 


1 REM TOT-16 PLUS U1.0 
E REM BY ANTONIO PASTORELLI 

3 : 

4 POKE 800 , EE5: POKE 55 ,48: PO 
KE 56 , 87 : CLR 

5 Diti GRC 10 , 16) : REM GRUPPI □ 
I SEGNI 

6 DUI BSC 16) : REM SISTEHA BAS 
E 

7 Din CI C 10, 16) : REH COLONNE 

inposs. 

8 CK-0:OK“0:COS-” 500”:CU-0 
3 : 

10 REn CARATTERI 

11 : 

1E X1$-CHRSCE13):XES-CHR$C19S) 
:X3$-CHRSC17B) : X4S-CHRSCE01 
) 

13 X5S-CHRSCEE1):X6S-CHRSCE19) 
: X7S-CHRSCS0E) : X8S-CHRSCE03 
) 

14 XS$-CHR$C177):XAS-CHRSC171) 
: XBS-CHRSC 179) ; REn TASTO C 
OnnODORE+ R, Q, W 

15 SPS-CHRSC3E) 


16 : 

17 POKE 53E80 , 0: POKE 53E81,0:P 
RINTCHRSCSB) 

18 PRINTCHRSC 14E)CHRSCB)CHRSC 1 
47) : PRINT TABC6) "SYSTENS EO 
I TORI ALE PRESENTA:” 

19 FOR J-l TD 10: PRINTCHRSC 17) 
:NEXT: PRINT TABC9) "BY : ANTO 
NIO PASTORELLI" 

E0 CO-3 

SI POKE Eli ,1E: POKE E14.ll: SYS 
58640 

EE C0-C0+1:IF C0>15 THEN CO-S 

£3 POKE 646, CO: PRINT "TOT- 16 PL 
US U1 .0” 

E4 IF PEEKC 137)064 THEN E6 

55 GOTO SI 

56 PRINTCHRSC 159) 

E7 PRINTCHRSC147)CHRSC1B) ; : FOR 
J-l TO 14: PRINTCHRSC3E) ; : N 
EXT : PRINT"T0T-16 PLUS”; 

EB FOR J-l TO 14: PRINTCHRSC3S) 

; : NEXT 

E9 POKE Eli, 3: POKE S14,11:SYS5 
8640 



30 PRINTCHRSC1463X1S; : FOR J-l 
TO 29 : PR I NTX2S ; : NEXT : PR I NTX 
3SX2SX2SX4S 

31 PRINT TABC33X5S TABC333X5SS 
PCC23X5S: PRINT TABC3)X7S;:F 
OR J-l TD 29 

32 PRINTX2S; : NEXT: PRINTX9SX2SX 
2SXBS : PR I NTCHRS C 145 3 CHRS C 1 4 
5); 

33 PRINT TABC43 "SU QUANTI PRON 
05TICI LAUORI ?" : NS-” ” : POKE 

19B, 0 

34 GET AS : I F A$- ,,n THEN 34 

35 IF ASCCA$)>47 AND ASCCASX5 
B THEN 37 

3B BOTO 34 

37 NS-NS+AS: PRINTCHRSC 145) TAB 
C36-LENCNS-)) : NS: IF LENCNS3- 
2 THEN 39 

38 GOTO 34 

39 PR-UALCNS) 

40 IF PR< 14 THEN UX-12:G0T0 42 

41 UX-14 

42 IF PR< 12 OR PR> 16 THEN PRIN 
TCHRSC1453 TABC343CHRSC323C 
HRSC32) : N$— ” ” : GOTO 34 

43 PRINT CHRSC 147) "PREZZO DI U 
NA COLONNA: POKE 199,0: PO 
KE 204 ,0: COS-”" 

44 GET AS : IF AS-CHRSC20) THEN 
49 

45 IF AS-CHRSC13) THEN 51 

4B IF A$< ”0” OR A$> ”9" THEN 44 

47 IF LENCCOS3-4 THEN 44 

48 COS-COS+AS : PRINTAS ; :GOTO 44 

49 IF COS-”” THEN 44 

50 PRINTCHRSC 203; : COS-LEFTSCCO 
$ , LENCCOS3-13 : GOTO 44 

51 IF UALCCOSX500 THEN COS-"” 

: POKE 198,0: GOTO 44 

52 POKE 204,1: POKE 207,0: IF LE 
NCCOS3-4 THEN 54 

53 FOR J-l TO 4-LENCCOS3 : COS-" 
0”+COS: NEXT 

54 FDR J-l TO LENCCOS3 : POKE 49 
738+ J , ASCCriIDSCCOS , J, 1 3 3 : NE 
XT 

55 PRINTCHRSC 1473 "CCLEARDCRUSD 

INSERIMENTO SISTEMA- 

BASE : 

5B POKE 49152, PR:GOSUB 364 

57 : 


5B REM INPUT SISTEMA 

59 : 

60 X-0: PRINT”CHOME3C3 DOWN] ” ; : 
FOR J-l TO PR: POKE 198,0: PR 
INT TABC43BSCJ); 

61 POKE 204,0: GET A$:IF AS-"” 
THEN 61 

62 IF AS-CHRSC133 AND BSCJ3-”" 

THEN 61 

63 IF AS-CHRSC133 THEN POKE 20 
4,1: POKE 207 , 0 : PR I NT : GOTO 7 
1 

64 IF AS-CHRSC203 AND LENCBSCJ 
3 3>0 THEN 77 

65 IF ASO ”1 " AND ASO ”2” AND 
ASO "X" THEN 61 

66 GOTO 75 

67 IF LENCBSCJ) 3-3 THEN 69 

68 BSC J3-BSC J3+AS: PRINTAS; : GOT 
0 61 

69 BSC J PRINT: PRINT "CUPI ” 
TABC43” ■; 

70 PRINTX5S : PRINT” CUP] ” TABC4) 

; : GOTO 61 

71 PRINT”CUP] ” TABC4) ; BSC J) ; : I 
F LENCBSCJ) 3-3 THEN PRINTX5 
S : GOTO 73 

72 FOR ZX-1 TO 3-LENCBSC J3 3 : PR 
I NTCHRS C32 3 ; : NEXT : PRINT 

73 X— X+l : IF X>2 AND J<UX THEN 
X-0: PRINT 

74 NEXT: GOTO B0 

75 FOR K-l TO LENCBSCJ) 3 : IF AS 
-MIDSCBSC J) , K, 1) THEN 69 

76 NEXT: GOTO 67 

77 POKE 204,1: BSC J)-LEFT$CB$C J 
),LENCBSCJ))-1): PRINT 

78 PRINT”CUP1 " TABC43” ”X5$: 
PRINT”CUPD ” TABC43BSC J3 ; 

79 GOTO 61 

80 PR I NT ”C DOWN! CONFERMI CS/N3? 

81 POKE 204,0: GET AS: IF AS-”S” 

THEN POKE 204 , 1 : PDKE 207, 

0 : GOTO 89 

82 IF A$-”N" THEN 87 

83 GOTO 81 

84 : 

85 REM CORREZIONE 
B6 : 

87 POKE 204,1: POKE 207,0: POKE 
211,0: POKE 214,24 
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06 SYS50S-O : PR I NT "CORREGG I . 

•• ; : GOTO 60 
03 GOSUB 455 

30 PRINT-’CCLEAR:"; :FOR J-l TO 
PR 

31 IF B$CJ)-"1" THEN UR-1 

32 IF BSC J)-"X" THEN UR-2 

33 IF B$CJ)-**2" THEN UR-3 

34 IF BSCJ)-"1X’’ OR BSCJ)-"X1" 

THEN UR-4 

35 IF BSC J)-"12” OR B$CJ)-**21" 

THEN UR-5 

36 IF B$CJ)-"X2” OR BSCJ)-“2X" 

THEN UR-6 

37 IF B$CJ)-"1X2" OR B$CJ)-**12 
X" OR BSCJ)-"X12” OR BSCJ)- 
”X21 ” THEN UR-7 

30 IF BSC J)-”21X" OR BSCJ)-”2X 
1” THEN UR-7 
33 POKE 43102+ J , UR : NEXT 
100 : 

101 REn INPUT N. SEGNI 

102 : 

103 PRINTCHRSC 147) "UUOI LA LIMI 
TA2I0NE DEL NUMERO DI SEGNI 
?" : POKE 130,0 

104 GET AS : IF A$-»S" THEN OK-0: 
GOTO 100 

105 IF A$-"N" THEN 107 

106 GOTO 104 

107 MI— 0 : MX-0 : M2— 0 : UJ1— PR : WX— PR : 
W2-PR : GOTO 120 

100 PRINTCHRSC 147)CHR$C IBI” 

NUMERO PRESENZE SEGNI 
C3 DOU)N:*’:TA-20 

103 PRINT “SEGNO *1* (MINIMO) : “ 
; : GOSUB 325 : MI— UALCZXS) 

110 PRINT "SEGNO *X* CMINIMO) ** 

GOSUB 325: MX-UAL£ZXS) 

111 PRINT "SEGNO *2* (MINIMO) 

; : GOSUB 325: M2-UALCZXS) 

112 PRINT"C2 DOUIN3 " 

113 PRINT "SEGNO ’l’ CMASSIMO):” 
; : CK-1 : CT-M1 : GOSUB 325 : UJ1-U 
ALCZXS) 

114 PRINT "SEGNO *X* (MASSIMO) : M 
;: CK-1: CT-MX: GOSUB 325:U)X-U 
ALCZXS) 

115 PRINT "SEGNO ’2* (MASSIMO):" 
; : CK-1 : CT-M2 : GOSUB 325 : W2-U 
ALCZXS) 


116 PRINT”C3 DOUIN) CONFERMI CS/N 
)?" 

117 GET AS : I F A$-”S” THEN 120 

■ 118 IF A$-”N” THEN PRINT"CCLEAR 
D"; : GOTO 103 
113 GOTO 117 

120 POKE 43532, MI: POKE 43533 ,MX 
: POKE 43534 ,M2 

lHl POKE 43535, Wl: POKE 43536, UX 
:POKE 43537, U2 

122 PR I NTCHRS ( 147 ) "UUO I LIMITAR 
E I SEGNI CONSECUT IUI?”:POK 
E 130,0 

123 GET AS : IF AS-”S" THEN 127 

124 IF A$-"N” THEN 126 

125 GOTO 123 

126 Cl— 1 : CX— 1 : C2— 1 : SI— PR : SX— PR : 
S2-PR : GOTO 142 

127 PRINT”CCLEAR1CRUS1 

CONSECUT IUITA’ SEGNI 

C 3 OOUIN1 ” : TA-34 : OK-1 : CT 

-1 

128 PRINT”CONSECUTIUITA * MINIMA 

SEGNO '1* : “ ; : CU— U1 : GOSUB 
325: Cl-UALCZXS) 

123 PRINT "CONSECUT IUITA* MINIMA 
SEGNO *X* CU-UX : GOSUB 

325 : CX— UAL C ZXS ) 

130 PRINT"CONSECUT IUITA* MINIMA 

SEGNO '2* CU-U2 : GOSUB 

325 : C2-U AL ( ZXS ) 

131 PRINT"C2 DOWN!" 

132 PRINT "CONSECUT IUITA* MASSIM 

A SEGNO *1* : : CK-1 : CU— Ull : 

CT-C1: GOSUB 325 

133 Sl-UALCZXS) 

134 PRINT “CONSECUT IUITA* MASSIM 

A SEGNO *X* : CK-1 : CU-UIX : 

CT-CX: GOSUB 325 

135 SX-UALCZXS) 

136 PRINT**CONSECUTIUITA ’ MASSIM 
A SEGNO *2* : " ; : CK-1 : CU-U2 : 
CT-C2: GOSUB 325 

137 S2-UAL C ZXS ) : CU-0 

138 PRINT’*C3 DOUND CONFERMI CS/N 
)” 

133 GET AS: IF A$-"S" THEN 142 

140 IF AS-"N" THEN 122 

141 GOTO 133 

142 POKE 43538, Cl : POKE 43533, CX 
: POKE 43540. C2 
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143 POKE 49541. SI: POKE 49542. SX 
: POKE 43543, SE 

144 : 

145 REM INPUT N . ACC/TER/QUA 

146 : 

147 PRINTCHRSC 147) "UUOI LIMITAR 
E IL NUMERO DI ACCOPPIATE, 

E/O TERZINE,"; 

140 PRINT” E/O QUARTINE?”: POKE 
190. 0 

149 GET A$:IF AS-”S” THEN 153 

150 IF AS--N” THEN 155 

151 GOTO 149 

152 AC-l:TE-l:QU-l:Al-INTCPR/25 
: Tl-INTCPR/35 : Ql-INTCPR/45 : 
GOTO 165 

153 PRINT”CCLEARDCRUSDLIMITAZIO 
NE ACCOPPIATE, TERZINE, QUART 
INE.C3 DOUJN3 ” 

154 PRINT "NUMERO MINIMO ACCOPPI 
ATE : " ; : N— 2 : GOSUB 344:AC-JK 

155 PRINT”NUMERO MINIMO TERZINE 

:"; :N-3: GOSUB 344:TE-JK 

156 PRINT “NUMERO MINIMO QUARTIN 

E : " ; : N-4 : GOSUB 344 : QU-JK 

157 PRINT"C2 DOUIND " 

158 PRINT "NUMERO MASSIMO ACCOPP 
I ATE : " ; : N-2 : CK-1 : GOSUB 344: 
Al-JK 

159 PRINT "NUMERO MASSIMO TERZIN 
E : :N-3: CK-1: GOSUB 344: 
Tl-JK 

160 PRINT"NUMERO MASSIMO QUARTI 

NE N-4: CK-1: GOSUB 344: 

Ql-JK 

161 PRINT”C3 DOWN 5 CONFERMI CS/N 
)?“ 

162 GET AS : IF A$-"S" THEN 165 

163 IF A$-”N" THEN 147 

164 GOTO 162 

165 POKE 49529, AC: POKE 49530, TE 
: POKE 49531 , QU 

166 POKE 49360, Al .POKE 49361 , TI 
:POKE 49362,01 

167 PRINT”CCLEAR] UUOI INSERIRE 

LE COLONNE IMPOSSIBILI ? " 
16B GET AS : I F A$-”S" THEN 175 

169 IF A$-"N" THEN PRINTCHRSC 14 
75: GOTO 171 

170 GOTO 160 

171 FOR J-l TO 10:FOR K-l TO PR 


: CI C J , K5-0: NEXTK . J : LC-0 : GOT 
0 213 

175 : 

173 REM I NSER . COL . I MPOSS . 

174 : 

175 PR I NT ” C CLEAR 1 C RUS 3 INSER 
I MENTO COLONNE IMPOSSIBILI: 

" : LC-0 

176 GOSUB 364 

177 PR I NT " C HOME D C 3 DOWN] " ; : X-0: 
FOR J-l TO PR 

178 PRINT TABC7-LENCBSC J5 5 5BSC J 
5 : X— X*1 : IF X>5 AND J<UX THE 
N X— 0 : PRINT”CDOWND " ; 

179 NEXT 

180 FOR TA-9 TO 36 STEP 3: GOSUB 

373: NEXT :NL-1 

181 POKE 511,0: POKE 214,54:SYS5 
8640 

185 PRINT "PREMI CRUSD-CRUOFF] Q 
UANDO HAI FINITO."; 

183 : 

184 REM INPUT COL.IMPOSS. 

185 : 

186 CI-1 

187 RM-0: PRINT"CH0MEDC3 DOWN]”; 

: X— 0 : FOR J-l TO PR 

188 PRINT TABC9+3*CCI-1)+15; : PO 
KE 190,0 

189 POKE 204,0: GET AS: IF AS-CHR 
SC135 THEN 195 

190 IF AS-”-” THEN POKE 207, 0:P 
OKE 204,1: IF CICCI.J5-0 THE 
N AS-" ” : GOTO 474 

191 IF A$-”«-” THEN 473 

192 IF AS- ”1 " OR AS-”X” OR AS-” 
2" THEN 198 

193 GOTO 189 

194 POKE 207,0: POKE 204,1: PRINT 
AS: GOSUB 200: GOTO 196 

195 POKE 207,0: POKE 204,1: PRINT 
" ” : CI CCI , J5-0 

196 X-X+l. IF X>2 AND J.<UX THEN 
X-0: PRINT 

197 NEXTJ : GOTO 203 

198 FOR K-l TO LENCBSC JD 5 : IF AS 
-MIDSCBSCJ5 ,K, 15 THEN RM-1: 
GOTO 194 

199 NEXTK: PRINT TABC9+3*CCI-1 5+ 
15” CLEFT3 ” ; ; GOTO 109 

200 IF A$-"l” THEN CICCI,J5-1:R 
ETURN 
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201 IF AS— X" THEN CICCI,J3-2:R 
ETURN 

202 CI CCI.J1-3: RETURN 

203 IF RM-0 THEN LC-CI-1:G0T0 2 
06 

204 CI-CI+1:IF CI>10 THEN CI-10 
: GOTO 206 

205 GOTO 187 

206 IF LC<CI THEN LC-CI 

207 IF RH-0 AND LC-CI THEN LC-L 
C-l 

208 GOSUB 461 : POKE 211,0: POKE 2 
14,24: SYS58640 

203 PRI NT "CONFERMI CS/N3?" ; : FOR 
J-l TO 11 : PRINTCHRSC323 ; :N 
EXT 

210 GET A# : IF AS— S" THEN 213 

211 IF AS— N” THEN 181 

212 GOTO 210 

213 CK— 0: FOR J-l TO 10: FOR K-l 
TO PR 

214 POKE 48198+ C J-l 3*PR+K , CI C J, 
K3 : NEXTK, J 

215 POKE 48198, LC 

216 : 

217 REM INPUT GRUPPI SEGNI 

218 : 

218 PRINTCHRSC1473 "UUOI ELIMINA 
RE GRUPPI DI SEGNI GENERICI 
?”:POKE 198,0 

220 GET AS: IF AS— S" THEN 224 

221 IF AS— N” THEN PRINTCHRSC14 
7): GOTO 223 

222 ÓOTO 220 

223 FOR J-l TO 10: FOR K-l TO PR 
: GRC J , K3 -0 : NEXTK , J : LC-0 : GOT 
0 250 

224 PR I NT "CCLEAR] EROSI ELI 

MI NAZIONE GRUPPI DI SEGNI 

" : LC-0 

225 GOSUB 364 

226 PRINT’’CHOME3C3 DOWN3 " ; : X-0 : 
FOR J-l TO PR 

227 PRINT TABC7-LENCBSC J3 3 3BSC J 
3 : X-X+l : IF X>2 AND J<UX THE 
N X-0 : PRINT"CDOUN3 " ; 

228 NEXT 

229 FOR TA-3 TO 36 STEP 3 

230 GOSUB 373: NEXT :NL-1 

231 : 

232 REM INPUT GRUPPI 

233 : 


234 POKE 21 1,0: POKE 214,24:SYS5 
8640: PRINT"PREMI C RUS3-C RUO 
FFD QUANDD HAI FINITO.”; 

235 GS-1 : PRINT”CHOME3C3 DOUND"; 

: X— 0 

236 RM-0 : FOR J-l TO PR:POKE 198 
,0:PRINT TAB C 8+3* C GS-1 3+13 

237 POKE 204,0: GET A$:IF AS-CHR 
$(133 THEN 247 

238 IF AS-”-" THEN POKE 204, 1:P 
OKE 207,0: PRINT” ":GOTO 251 

238 IF AS-”!" OR A$— X" OR AS— ” 
2” THEN RN-1 : GOTO 241 

240 GOTO 237 

241 IF A$-"l ” THEN JK-1 

242 IF A$-”X" THEN JK-2 

243 IF A$-’’B” THEN JK-3 

244 GRCGS , J3— JK : POKE 204 , 1 : POKE 

207 , 0 : PR I NTAS 

245 X-X+l :IF X>2 AND J<UX THEN 
X-0: PRI NT 

246 NEXTJ : IF J>-PR THEN 248 

247 POKE 207,0: POKE 204,1: PRINT 
" ” : FOR Kl-J TO PR: GRCGS, K1 
3-0: NEXTK1: GOSUB 3B0 

248 IF RM-0 THEN LC-GS .GOTO 251 

248 GS-GS+1 : IF GS<11 THEN PRINT 

"CHOME3C3 DOUND X-0 : GOTO 
236 

250 GS-10 

251 IF LC<GS THEN LC-GS 

252 IF RM-0 AND LC-GS THEN LC-L 
C-l 

253 GOSUB 463: POKE 21 1,0: POKE 2 
14,24: SYS58640 : PRINT“CONFER 
MI CS/N37"; 

254 FOR J-l TO 12 : PRINTCHRSC32) 
;: NEXT: POKE 198,0 

255 GET AS : I F AS— S” THEN 258 

256 IF AS— N" THEN 234 

257 GOTO 255 

258 FOR J-l TO 10:LU-0:FOR K-l 
TO PR : I F GRCJ.K3O0 THEN LU 
-LU+1 

259 POKE 48543+C J-13*PR+K, GRC J , 
K3 

260 NEXTK .POKE 49722+ J, LU: POKE 
49704+J , PR-LU+1 : NEXTJ 

261 POKE 49704, LC 

262 : 

263 REM OTTIMIZZ . 

264 : 
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265 PRINT CHRSa47)"CRUS3 SC 
ELTA LIUELLO DI OTTIMIZZAZI 
□NE C3 DOWN}” 

266 PRINT” 1) LIUELLO 1 CR1DUZIQ 
NE3" 

26^ PRINT"2) LIUELLO 2 CBI-RIDU 
ZI ONE 3 ’’ 

266 PRINT "3 3 INTEGRALE” : POKE 13 
8,0 

263 GET AS:IF A$-”l" THEN POKE 
43752,1: GOTO 273 

270 IF A$-"2” THEN POKE 43752,2 
: GOTO 273 

271 IF A$-”3" THEN POKE 43752,0 
: GOTO 273 

272 GOTO 263 

273 PRINTCHRSC 147) 

274 PRINTX1S; : FOR J-l TO 1B:PRI 
NTX2S; ; NEXT : PR INTX3SX2SX2SX 
2SX2SX4S 

275 PRINTX5S" COSTO DI 1 COLONNA 
"X5SC0SX5S 

276 PRINTX7S; : FOR J-l TO IBrPRI 
NTX2S ; : NEXT : PRINTX9SX2SX2SX 
2SX2SXBS 

277 PRINTX1S; : FOR J-l TO 21:PRI 
NTX2S ; : NEXT : PR I NTX3S ; 

27B FOR J-l TO 10 : PRINTX2S; : NEX 
T : PRINTX4S 

273 PRINTX5S "COLONNE DA SUILUPP 
ARE”X5S TABC333XSS 

280 PRINTX7S; : FOR J-l TO 21:PRI 
NTX2S ; : NEXT : PR I NTX9S ; 

2B1 FOR J-l TO 10:PRINTX2S; : NEX 
T : PRINTXBS 

2B2 PRINTX1S ; : FOR J-l TO 21:PRI 
NTX2S ; : NEXT : PRINTX3S; 

2B3 FOR J-l TO 10 : PRINTX2S ; : NEX 
T : PRINTX4S 

204 PRINTX5S "COLONNE SELEZIONAT 
E ”X5S TABC333X5S 

2B5 PRINTX7S; : FOR J-l TO 21:PRI 
NTX2S ; : NEXT : PR I NTXSS ; 

286 FOR J-l TO 10: PRINTX2S; : NEX 
T: PRINTXBS 

287 PRINTX1S; : FOR J-l TO 20:PRI 
NTX2S ; : NEXT : PRINTX3S ; 

288 FOR J-l TO 11 : PRINTX2S; : NEX 
T -. PRINTX4S 

209 PRINTX5S "COSTO DEL SISTEMA 
”X5$; TABC333X5S 

230 PRINTX7S; : FOR J-l TO 20:PRI 


NTX2S ; : NEXT : PR I NTX9S ; 

231 FOR J-l TO 11:PRINTX2$; : NEX 
T: PRINTXBS 

232 : 

233 PRINT"C3 DOUINU” TABC63”CRUS 
3 ATTENDERE: SELEZIONE COLON 
NE" 

234 PRINT TABC6) "CDOUJN3 CCRUS3RU 
N/STOPCRUOFF3 PER INTERROM 
PERE)” 

235 : 

236 REM SUILUPPO 

237 : 

238 FOR J-l TO 9: POKE 43742+ J, 4 
8: POKE 43752+ J, 40: NEXT: POKE 

43765 , 0 

299 : 

300 REM CALCOLO COL. DA SUIL. 

301 : 

302 TR-0 : DO-0 : FOR J-l TO PR:IF 
LENCBSC J) 3-2 THEN DO-DO+1 

303 IF LENCBSC J) 3-3 THEN TR-TR+ 
1 

304 NEXTJ : CS-INTC2TD0*3TTR) : CSS 
-MIDSCSTRSCCS) ,2,03 : IF LENC 
CSS 3 -8 THEN 306 

305 FOR J-l TO 8-LEN C CSS 3 : CSS— ” 
0”+CS$ : NEXT 

306 FOR J-l TO 0 : POKE 49714+J.A 
SC C M I DS C CSS , J , 1 3 3 : NEXT 

307 POKE 49762, 40: POKE 49768,48 
: POKE 49763,67: POKE 43763,6 
7: POKE 43764,0 

308 POKE 49772,0: POKE 49765, 0:S 
YS51667 

303 F I -PEEK C 49762 3 +256*PEEK C497 
63) :BY-49764 

310 LS-” ” : FOR J-49753 TO 49761: 
LS-LS+CHRSCPEEKC J) 3 : NEXTJ : C 
O-UALCLS) 

311 PRINTCHRSC 147) "COLONNE SELE 
Z IONATE: "CO 

312 PRINT"COSTO DEL SISTEMA :” 
UALCCOS)*CO 

313 IF PEEK C 49765 3-1 THEN 415 

314 IF PEEK C 49772 3-1 THEN 417 

315 PRINT"C3 DOUJN3 1> REGISTRA C 
OLONNE SELEZIONATE" 

316 PRINT”2> STAMPA SU UIDEO”:P 
RINT”3> STAMPA SU TABULATO" 

317 PRINT”4> RESTART" 

318 GET A$ : I F A$-"l” THEN 3 
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92 

319 IF AS-"2” THEN 419 

320 IF A$-"3” THEN 440 

321 IF AS-”4” THEN 442 

322 GOTO 31B 

323 REFI CANCELLA LINEA 

324 : 

325 ZXS-"" 

326 POKE 204 , 0 : GET AS:IF AS-CHR 
SC 13 j AND ZXSO"" THEN 333 

327 IF AS-CHRSC203 AND ZXSO”” 
THEN 332 

329 IF AS< ”0” DR AS> ”9" THEN 32 
6 

329 IF LENCZXS3-2 THEN 326 

330 IF A$<”0” OR AS> ”9" THEN 32 

5 

331 PRINTAS; : ZXS-ZXS+AS: GOTO 32 

6 

332 PRINTCHRSC203; : ZXS-LEFTSCZX 
S, LENCZXS3-13 : GOTO 326 

333 PDKE 204 , 1 : POKE 207,0 -.PRINT 

- : IF OK-0 THEN 336 

334 IF UALCZXS3<1 THEN 343 

335 GOTO 337 

336 IF UALCZXS3<0 THEN 343 

337 IF UALCZXS3>PR THEN 343 
339 IF CK-0 THEN 342 

339 IF UALCZXS3<CT THEN 343 

340 IF CU-0 THEN 342 

341 IF UAL C ZXS 3 > CU THEN 343 

342 CT-0: RETURN 

343 PRINT"CUP3 " TABCTA3” ":PRI 
NT-CUPD” TABCTA) ; : GOTO 325 

344 ZXS-"" 

345 POKE 204,0: GET A$:IF AS-CHR 
SC 131 AND ZX$<>”” THEN 351 

346 IF AS-CHRSC203 AND ZXSO”” 
THEN 360 

347 IF A$<”0” OR AS> ”9” THEN 34 
5 

348 IF LENCZXS3-2 THEN 345 

349 IF AS< ”0” OR AS>”9” THEN 34 

4 

350 PRINTAS; : ZXS-ZXS+AS: BOTO 34 

5 

351 POKE 204,1: POKE 207,0:PRINT 

352 JK-UALCZXS3: IF CK>0 THEN 35 
5 

353 IF JK< 1 OR JK> INTCPR/N3 


THEN 359 

354 CK-0: RETURN 

355 IF CK-1 AND JK<AC THEN 359 

356 IF CK-2 AND JK<TE THEN 359 

357 IF CK-3 AND JK<OU THEN 359 

358 GOTO 353 

359 PRINT”CUP1 ” TABC263” ”:PRI 
NT”CUP3 ” TABC263 ; : GOTO 344 

360 POKE 204,1: PDKE 207,0:PRINT 
"CLEFT3 C2 LEFTD " ; : ZXS-LEF 
TSeZXS , LENCZXS3-1 5 : GOTO 345 

361 : 

362 REM STAMPA GRIGLIA 

363 : 

364 PRINTX1SX2SX2SX3$X2$X2$X2$X 
4S:X-0:FOR J-l TO PR 

365 XS-MIDSCSTRSC J3 ,2,23: IF LEN 
CXS3-1 THEN XS-" ”+XS 

366 PRINTX5$X$X5$SP$SP$SP$X5S:X 
-X+l 

367 IF X>2 AND J<UX THEN X-0:PR 
INTXASX2SX2SX6SX2SX2SX2SXBS 

366 NEXT : PR I NTX7SX2SX2SX9SX2SX2 
SX2SX8S 

369 RETURN 

370 : 

371 REM STAMPA GRIGLIE COL IMP 

372 :* 

373 PRINT-CH0MEDC2 DOWN!" TABCT 
A3X1SX2SX4S : X-0 ; FOR J-l TO 
PR 

374 PRINT TABCTA 3 X5SSP$X5$:X-X+ 
1 : IF X>2 AND J<UX THEN X-0: 
GOTO 376 

375 NEXT: PRINT TABCTA 3 X7SX2SX8S 
: RETURN 

376 PRINT TABCTA 3 XASX2SXBS: GOTO 

375 

377 : 

378 REM CANCELLA GRUPPI 

379 : 

380 PRINT”CH0ME1C3 DOWNl”; 

381 X-0: FOR Kl-1 TO PR 

382 PRINT TABC9+3*CGS-1 3 + 1 3 ; 

383 IF GRCGS , K1 3-1 THEN AS-"1” 

384 IF GRCGS, K13-2 THEN AS-"X” 

385 IF GRCGS. K13-3 THEN A$-”2" 

386 IF GRCGS, K13-0 THEN A$- ” ” 
3B7 PRINTAS : X-X+l : IF X>2 AND K1 

<UX THEN X— 0 : PRINT”CDOUND ’’ ; 
388 NEXTK1: RETURN 
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309 : 

390 REM SAUE COLONNE 

391 : 

392 PRINTCHRSC 1471 "NOME FILE:”; 

393 NFS- ” ” : POKE 190,0: POKE 204, 
0 

394 GET A$:IF AS-"” THEN 394 

395 IF AS-CHRSC201 AND LENCNFS) 
>0 THEN 402 

395 IF AS-CHRSC131 AND NF$<>"" 
THEN 403 

397 IF AS-" OR AS-"/” OR AS-” 
C" OR A$-”l” THEN 400 

390 A-ASCCAS1:IF CA>54 AND A<90 
5 OR CA>47 AND A<5B1 THEN 4 
00 

399 GOTO 394 

400 IF LENCNFS1-16 THEN 394 

401 PR INTAS ; : NFS-NFS+AS : GOTO 39 
4 

402 NFS-LEFTSCNFS, LENCNFS}— 11 :P 
RINTCHRSC201 ; : 60T0 394 

403 POKE 204 , 1 : POKE 207.0:PRINT 
CHRSC 1471 "SU CRUSDDC RUOFF1 1 
SCO 0 SU C ROSI NCRUOFFl ASTRO 
?.. 

404 GET A$ : I F AS-”D" THEN DU-0: 
GOTO 407 

405 IF AS-”N" THEN OPEN 1,1, 1,N 
F$ : DU-1 ; GOTO 409 

406 GOTO 404 

407 OPEN 1,0,12: CLOSE 1:IF STO 
0 THEN 403 

400 OPEN 1,0, 12,NFS+»,S,Ur 

409 PRINT#1, "T0T16.D" 

410 PRINT#1 , PR: PRINT#1 , CO: FOR J 
-1 TO PR : PRINT#1 , BSC J1 : NEXT 

411 BY-INTCCC0*PR}/41: IF CCO*P 
R1/4>INTCCC0*PR1/41 THEN B 
Y-BY+1 

412 LO” ( PEEK C 497B0 1 +256*PEEKC 49 
76911-1 

413 FOR J-l TO BY 

414 PRINT#1 , CHRSCPEEKCLO+J1 1 ; :N 
EXT: CLOSE l:GOTO 311 

415 PR I NT "C DOWN] C RUS] SU I LUPPO N 
ON TERMINATO PER SUPERAMENT 
0 CAPACITA ‘ DI MEMORIA.” 

416 GOTO 315 

417 PR INT”CDOWN]C RUSDSUILUPPO N 
ON TERMINATO PER INTERRU2I0 
NE CON TASTO •STOP*.” 


418 GOTO 315 

419 OPEN 1,3 

420 PRINTCHRSC 1471 :BY-0; AD-PEEK 
C 49768 1+2S6*PEEKC 49769! : XP” 
0 : LF— 0 : NM— 0 

421 CL”1 : NP“1 

422 IF PEEK C 1971-57 THEN PRINT# 
1: CLOSE 1 : GOTO 311 

423 IF PEEK C 1971064 THEN POKE 
196 , 0 : UIAIT 190,1 

424 A-PEEKC ADI AND C3«4TBY1:A-A 

/INTC4TBY1 

425 IF A-l THEN AS--1" 

426 IF A-2 THEN AS-’-X” 

427 IF A-3 THEN AS-”2” 

420 PRINT#1 , A$ ; : BY-BY+1 : IF BY>3 
THEN BY-0 : AD-AD+1 
420 NP-NP+1 : I F NP>PR THEN 431 

430 GOTO 422 

431 CL— CL+1 : IF CL>CO THEN 430 

432 NP— 1 : IF XP-0 THEN XP-1:PRIN 
T#l, TABC21 1 ; : GOTO 422 

433 XP-0: PRINT#1 : LF-LF+1 : IF LF> 
3 THEN LF-0 : PRINT#1 : NM-NM+1 

434 IF NM>3 THEN 436 

435 GOTO 422 

436 PRINT-PREMI UN TASTO." 

437 NM— 0 : POKE 199,0:WAIT 198,1: 
PRINTCHRSC 1471 : 60T0 422 

438 PRINT : PRINT "CD0UN1CRUS1FINE 

STAMPA. PREMI UN TAST0l”:P 
OKE 190,0: UIAIT 190,1 

439 PR I NT# 1: CLOSE 1:G0T0 311 

440 OPEN 1,4,0: CLOSE 1 : IF ST<>0 

THEN 311 

441 OPEN 1,4,0: GDTO 420 

442 PRINTCHRSC 1471 "STESSO SISTE 
MA?” : POKE 190,0 

443 GET A$:IF AS-"S" THEN 440 

444 IF AS- "N” THEN 446. 

445 GOTO 443 

446 FOR J-l TO 16: BSCJ!-"": NEXT 

447 CK— 0 : OK— 0 : COS— * 500":CU-0:G 
OTO 26 

448 PRINTCHRSC 1471 "STESSI CONDÌ 
2I0NAMENTI?” : POKE 190,0 

449 GET AS: IF AS-”S“ THEN GOSUB 

455: GOTO 265 

450 IF A$-"N" THEN GOSUB 455:60 
TO 103 

451 GOTO 449 


37 




4SE : 463 IF LC-10 THEN RETURN 

453 REM SCRIUE 1A COLONNA 464 FOR J-LC+1 TO 10:FOR K-l TO 

454 : PR : GRC J , K)— 0 : NEXTK , J : GOSUB 

455 FOR J-l TO PR : AS-LEFTSCBSC J 465: RETURN 

) , 1 ) : IF AS-”1" THEN A-l 465 IF GS-10 THEN RETURN 

456 IF AS-"X” THEN A-E 466 XD-LC+1 

457 IF AS- B E n THEN A-3 467 PRINT”CH0nEIC3 DOUIND"; 

458 POKE 43165+ J , A : IF LENCBSC JD 468 X-0:FOR Kl-1 TO PR 

)>1 THEN LU-J 463 PRINT TABCS+3*CXDD+1) “ ” 

453 NEXTJ : POKE 4318E,LU:REn UL 470 X-X+1:IF X>E AND KKUX THEN 
TI HA UARIANTE X-0 : PRINT”CDOUND ” ; 

460 RETURN 471 NEXTK1 : XD-XD+1 : IF XO<10 THE 

461 IF LC-10 THEN RETURN N 467 

46E FOR J-LC+1 TO 10: FOR K-l TO 47E RETURN 

PR : CI C J , K)-0 : NEXTK , J : GOSUB 473 AS-HIDSCSTRSCCI CC I , J 5 3 . E , 1 ) 

466: RETURN 474 PRINTAS:GOTO S06 
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2 * PROGRAMMA PRINCIPALE DI TOT-16 PLUS PER IL 

3 • PILOTAGGIO DELLE ROUTINES SPECIALIZZATE 

4 

5 * QUESTO PROGRAMMA PROUUEDE A CHIAMARE NELLA GIUSTA 

6 • SEQUENZA LE ROUTINES AD OGGETTO SPECIFICO, E AD 

7 • INTERPRETARNE I RISULTATI. 

B • L'USCITA DA QUESTA ROUTINE AUUIENE IN TRE CASI: 

3 * 1) PER ESAURIMENTO DELLE COLONNE DA CONTROLLAR 

10 * SI PER PRESSIONE DEL TASTO 'RUN/STOP* 

11 • 3) PER ESAURIMENTO DELLA MEMORIA RAM DISPONI B. 

12 * 

13 * PER UERIFICARE LA CONDIZIONE DI USCITA DAL PROGR. 

14 * BISOGNA TESTARE I BYTES 4S7S5 E 4S772 CHE, SE 

15 * SETTATI INDICANO R I SPETT I UAMENTE L'USCITA PER 

16 * MEMORIA INSUFFICIENTE 0 PER PRESSIONE TASTO 'STOP* 

17 * SE ENTRAMBI SONO AZZERATI, L’USCITA E' DOVUTA 
1B * ALL’ESAURIMENTO DELLE COLONNE DA SVILUPPARE 
13 

20 * I PARAMETRI DA RISPETTARE SONO QUELLI DELLE 

21 * ROUTINES CHIAMATE DA QUESTO PROGRAMMA. 

22 * CON LA PRESSIONE DEL TASTO ’SHIFT ’ SI SOSPENDE 

23 * L'ELABORAZIONE, CHE RIPRENDE AL SUO RILASCIO 

24 

25 

26 OUTMEM - 4S765 ; FLAG DI 'OUT OF MEMORY’ 

27 STOP - 43772 ; FLAG PRESSIONE TASTO STOP 

2B 

23 

30 * TABELLA ENTRY POI NT DELLE * 

31 * ROUTINES CHIAMATE * 


32 

33 

34 COLSUL - SC233 

35 CALCSBN “ SC350 

36 CONTRSGN - SC716 

37 COLIMP - SC428 

3B ACCOPP - SC475 

33 TERZIN - SC524 

40 QUART - SC60E 

41 GRUPPI - SC76E 

42 OTTIM - SC351 

43 

44 DECCOLSU - SC75B 

45 INCESIS - SC7EB 

46 PNTCOSU - SCB42 

47 PNTCOSTO - SCB70 

4B PNTCOLSEL - SCB3E 
43 INCCOLSEL - SCBCC 

50 REGISTRA - SCBES 

51 SUILUPPA - SC3C3 

52 



53 


ORG SC9D3 




55 

56 START 

57 

58 
SS 
60 
61 
62 

63 

64 

65 


JSR CALCSGN 


JSR CONTRSGN 


LDA SFD 
BNE- ND 
LDA 4S19S 


66 

67 BEO 

68 JSR 

69 

70 LDA 

71 BNE 
75 CKACC JSR 

73 

74 LDA 

75 BNE 

76 JSR 

77 

78 LDA 

79 BNE 

B0 JSR 

81 

85 LDA 

83 BNE 

B4 LDA 

85 

86 

87 BEO 

88 JSR 

89 

90 LDA 

91 BNE 
95 CKBLUFF LDA 

93 BEQ 

94 

95 LDA 

96 CMP 

97 BNE 

98 LDA 

99 CUP 

100 BNE 

101 

105 JMP 

103 OK JSR 

104 


CKACC 

COLIMP 

SFD 

ND 

ACCOPP 

SFD 

ND 

TERZIN 

SFD 

NO 

QUART 

SFD 

NO 

49704 


CKBLUFF 

GRUPPI 

SFD 

ND 

49755 

BLUFF 

49765 

49768 
OK 

49763 

49769 
OK 

BLUFF 

OTTIM 


; CHIAMA ROUTINE PER 
; CALCOLO SEGNI E CONSECUTIVI 

; CHIAI1A ROUTINE PER CONTR . 

; NUMERO SEGNI E CONSECUTIVI 
; CON MIN E MAX' IMPOSTI 

; TESTA IL RISULTATO 
; SE NEGATI UO SALTA A 'NO' 

; CARICA NUMERO COLONNE 
; IMPOSSIBILI INSERITE 
;SE-0 SALTA A 1 CKACC’ 

; CHIAMA ROUTINE PER CONTR. 

; DELLE COLONNE IMPOSSIBILI 
; TESTA RISULTATO 
; SE NEGATIUO SALTA A ’NO’ 

; CHI AMA ROUTINE PER CONTR. 

; DELLE ACCOPPIATE 

; TESTA IL RISULTATO 

; SE NEGATIUO SALTA A ’NO’ 

{CHIAMA ROUTINE PER CONTR. 

{DELLE TERZINE 

{TESTA IL RISULTATO 

;SE NEGATIUO SALTA A ’NO’ 

{CHIAMA ROUTINE PER CONTR. 

{DELLE QUARTINE 

{TESTA IL RISULTATO 

;SE NEGATIUO SALTA A 'NO* 

{CARICA IL NUMERO DELLE 

{SEQUENZE DI SEGNI DA 

{ELIMINARE 

;SE-0 SALTA A 'CKBLUFF* 
{CHIAMA ROUTINE PER CONTR. 
{DELLE SEQUENZE DI SEGNI 
{TESTA IL RISULTATO 
{SE NEGATIUO SALTA A ’NO’ 
{CARICA L1UELLO OTTIMIZZAZ. 
;SE-0 SALTA A 'BLUFF’ 

{CONTROLLA SE 
;LA COLONNA 

;DA MEMORIZZARE E’ LA PRIMA 
;SE NO 

{SALTA AD 'OK’ 


ì SALTA A 'BLUFF’ 
CHIAMA ROUTINE DI 
: OTTIMIZZAZIONE 
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105 


LDA 

49767 

TESTA IL RISULTATO 

105 


BNE 

NO 

SE NEGATI UO SALTA A 'NO' 

107 

BLUFF 

JSR 

INCESIS 

I NCRENENTA COSTO SI5TENA 

100 


JSR 

INCCOLSEL 

INCRENENTA COLONNE SELEZ . 

100 


JSR 

REGISTRA 

REGISTRA COLONNA 

110 


J5R 

PNTCOLSEL 

STANPA NUn. COLONNE SELEZ. 

111 


JSR 

PNTCOSTO 

STANPA COSTO SISTENA 

112 

NO 

JSR 

OECCOLSU 

DECREN. COLONNE DA SUILUPP 

113 

114 


JSR 

PNTCOSU 

STANPA N. COL. DA SUILUPP. 

115 

116 


LDA 

ouTnEn 

CARICA FLAG DI 
■OUT OF nENORY’ 

117 


BNE 

EXIT 

SE SETTATO SALTA A 'EXIT’ 

110 


LDA 

197 

CONTROLLA TASTO PRENUTO 

110 


cnp 

#$3F 

E’ ' RUN/STOP ’ ? 

ru ru 
v- s 


BEO 

BREAK 

SE SI SALTA A 'BREAK' 

122 





123 

* COLONNE DA 

SUILUPPARE FINITE?* 

124 

125 





126 

127 

conno 

LDA 

653 

CARICA STATO TASTI 
•SHIFT' , CONTROL' E 'CONn. 

12B 


cnp 

#1 

TASTO 'SHIFT' PRENUTO? 

120 


BNE 

CLSUL 

SE NO SALTA A 'CLSUL' 

130 

131 


jnp 

conno 

ALTRINENTI SALTA A 'CONNO ' 

132 

CLSUL 

LDX 

#$08 

CONTROLLA 

133 

LOOP 

LDA 

COLSUL-l.X 

SE LE COLONNE DA 

134 


cnp 

#$30 

SUILUPPARE SONO 

135 


BNE 

CONTINUA 

SONO FINITE 

136 


DEX 


SE NO SALTA A 'CONTINUA' 

137 


BNE 

LOOP 

ALTRINENTI 

130 

130 


jnp 

EXIT 

SALTA A 'EXIT* 

140 

141 

142 

143 

CONTINUA 

JSR 

SUILUPPA 

CHIANA ROUTINE CHE 

SUILUPPA IL SISTENA 
OTTENENDO UNA NUOUA 

COLONNA ATTUALE 

144 

145 


jnp 

START 

POI SALTA A 'START* 

146 

147 

EXIT 

RTS 

;ESCE DAL PROGRANNA 

146 

140 


► **•* 



150 

BREAK 

LDA 

#$01 

SETTA IL FLAG 

151 

152 

153 


STA 

RTS 

STOP 

DI STOP ED 

ESCE DAL PROGRANNA 

154 


»•*** 
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1 


2 * ROUTINE PER IL CALCOLO DEL NUMERO DI SEGNI E * 

3 * DELLE CONSECUTIUITA ’ MINIMA E MASSIMA DI SEGNI 1X2* 

5 • 49152 CONTIENE IL N. DI PRONOSTICI DEL CONCORSO * 
G * 49166-49101 CONTENGONO LA COLONNA DA CONTROLLARE * 

0 

3 **•**•*•**•**»•*<•»♦*••♦»•»*•»*•* 


10 NPRON 

- 

49152 

; NUMERO PRONOSTICI 


11 SGNPKEC 

- 

49153 



12 NSGN 

- 

49154 



13 CONSMI 

- 

49157 



14 CONSMA 

- 

49160 



15 CONSEC 

- 

49163 



16 COLATT 

- 

49166 

: COLONNA ATTUALE 


17 ********* 





10 

ORG 

50000 



13 





20 





21 





22 ********* 





23 * AZZERA 

FLAG 

SEGNO PRECEDENTE * 


24 * E NUMERO DEI 

SEGNI 

* 


25 ********* 





26 

LDA 

#$00 

; AZZERA L’INDICATORE 

PER IL 

27 

STA 

SGNPREC 

: SEGNO PRECEDENTE 


20 

LOX 

#$02 



29 RIPETI 

STA 

NSGN . X 

; A2ZERA IL NUMERO DI 

SEGNI 

30 

DEX 


: *1\ *X\ E *2* TROUATI 

31 

BPL 

RIPETI 



32 





33 ********* 



******* 



34 * CARICA NPRON+1 E- LO PONE * 

35 * COME CONSECUTIUITA* MINIMA • 


36 ******** 




37 

LDA 

NPRON 

; CARICA NUMERO PRONOSTICI 

30 

CLC 


: ADDIZIONA 1 

39 

ADC 

#$01 


40 

LDX 

#$02 

; IL RISULTATO UIENE 

41 LOOP1 

STA 

CONSMI .X 

; UTILIZZATO COME CONSECUTIU 

42 

DEX 


; MI NI MA INIZIALE 

43 

BPL 

LQOP1 


44 




45 •***••*•* 


46 * PONE A 

*1 ' 

CONSECUTIU 

MAX • 

47 ********* 




40 

LDA 

#$01 


49 

LDX 

#$02 


50 L00P2 

STA 

CONSMA , X 


51 

DEX 



52 

BPL 

L00P2 



42 



i LDY 

ì KIT1 LDX 

INC 


NPRON 

COLATT-1, Y 
NSGN-1 , X 


PREC0 

CONSEC-1 . X 


CONSMA-1 , X 

OECRY 

□ECRY 

CONSMA-1 , X 


CARICA UN SEGNU DALLA 
COLONNA DA CONTROLLARE 
INCREMENTA IL NUMERO DI 
PRESENZE DEL SEGNO TKOUATO 
LO CONFRONTA CON IL 
PRECEDENTE 
SE DIUERSO SALTA 
SE UGUALI INCREMENTA IL 
NUMERO DI CONSECUT IU I TA ’ 
CONFRONTA LA CONSECUT1UITA 
CON QUELLA MASSIMA TROUATA 
PER QUEL SEGNO 

SE UGUALI 0 
MINORE, SALTA 
SE MAGGIORE AGGIORNA LA 
CONSECUT IU ITA’ MASSIMA 


: PREC0 LDX 

, CPX 

> BEQ 

LDA 


LDA 

STA 

DECRY DEY 


SBNPREC 

#S00 

BIT1 

CONSEC-1, X 


BIT1 

Bill 

CONSMI-1 , X 


#S01 

CONSEC-1 ,X 


; CARICA FLAG SEGNO PRECED 
; SE ZERO SALTA 

CARICA CONSECUT I U I TA ’ DEL 
SEGNO IN ESAME 
CONFRONTA CON LA CONSECUT 
MINIMA DELLO STESSO 
SE UGUALE 0 
MINORE, SALTA 
ALTRIMENTI AGGIORNA 
CONSECUT IUITA MINIMA 
RIPRENDE LO STESSO SEGNO 
DALLA COLONNA IN ESAME 
E DIUENTA IL NUOUO SEGNO 
PRECEDENTE 

E PONE A 1 LA SUA CDNSECUT 

DECREMENTA NUMERO SEGNI 
DA CONTROLLARE 
SE NON FINITI RIPRENDE 
SALTANDO A "KIT1” 


• SISTEMAZ CONS MIN ULTIM SGN 


LDX COLATT 
LDA CONSEC-1 , X 
CMP CONSMI-1 , X 
BEQ END 
BCS END 


CONTROLLA CHE LA CONSECUT 
DELL'ULTIMO SEGNO NON 51 A 
INFERIORE A QUELLA MINIMA 
ALTRIMENTI AGGIORNA 
CONSECUT IU MINIMA 
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105 

106 END 

107 **** 


STA C0NSf11-l,X 
RTS 


2 * ROUTINE PER LO SUILUPPO DI UN SISTEMA-BASE 

3 

4 • 4918B DEUE CONTENERE IL NUMERO DI PRONOSTICO 

5 * DELL’ULTIMA UARIANTE DEL SISTEMA-BASE 

6 * 4S1B3-49198 CONTENGONO IL SISTEMA BASE CODIFICATO: 

7 • l-’l’ 

8 * B-’X* 

S * 3-’E’ 

10 * 4-’ IX’ 

11 • 5-*lB’ 

1B * 6-’XB’ 

13 * 7" ’ 1XB ’ 

14 * 

15 * QUESTA ROUTINE OGNI UOLTA CHE UIENE CHIAMATA 

16 • PROUUEDE A FORNIRE NELLE LOCAZIONI 49166-19181 

17 * LA SUCCESS IUA COLONNA DERIUANTE DALLO SUILUPPO DEL 

18 * SISTEMA-BASE 
ig 

S0 


B1 LASTUAR 

- 

49182 

ULTIMA UARIANTE DEL SISTEM 

BB SISTBAS 

- 

49103 

INIZIO SISTEMA-BASE 

23 COLATT 

- 

49166 

COLONNA ATTUALE 

24 

ORG 

501B1 


25 




26 ****•*•« 




27 

LDX 

LASTUAR 

CARICA 

28 CICLO 

LDA 

SISTBAS-l.X 

UN SEGNO 

29 

CMP 

#$04 

:■ UN PRONOSTICO FISSO? 

30 

BEQ 

LOOP 

SE NO 

31 

BCS 

LOOP 

SALTA 

32 




33 DECREM 

DEX 


DECREMENTA FINO AD ARRIUAR 

34 

BNE 

CICLO 

AL 1 PRONOSTICO 

35 FINE 

RTS 


SE ARRIUATO A 0 ESCE 

36 LOOP 

CMP 

#$04 

; IL PRONOSTICO E’ ’IX’? 

37 

BEQ 

uix 

SE SI SALTA A ’UIX' 

38 

CMP 

#$05 

IL PRONOSTICO E’ ’IB’? 

39 

BEQ 

U1B 

SE SI SALTA A ’UIB’ 

40 

CMP 

#$06 

IL PRONOSTICO E’ ’XB’? 

41 

BEQ 

UX2 

SE SI SALTA A ’UXB’ 

4B *•***•*« 




43 * 1 X 

B 

• 


44 •*«•**«•*« 




45 




46 

LDA 

COLATT- 1 , X | 

CARICA SEGNO DA COLONNA 

47 



ATTUALE 



AUMENTA CODICE SEGNO DI 1 


48 

CLC 


4S 

ADC 

#$01 

50 

CMP 

#$04 

51 



5£ 

BNE 

EXIT 

53 SOUB 

LDA 

#$01 

54 S0UB1 

STA 

COLATT-l.X 

55 

JMP 

DECREM 

5G EXIT 

STA 

COLATT-1 , X 

57 

JMP 

FINE 

58 •****•< 



59 **** 

1 

X ***** 

60 ••***« 



61 



6E U1X 

LDA 

COLATT-l.X 

63 

CLC 


64 

ADC 

#$01 

65 

CMP 

#$03 

65 

BEO 

SOUB 

67 

JMP 

EXIT 

68 **•**•« 



63 ••••• 

1 

2 ***** 

70 ••••••« 



71 U1E 

LDA 

COLATT-1 , X 

7E 

CMP 

#$01 

73 

BNE 

BOH 

74 OCCAS 

LDA 

#$03 

75 

JMP 

EXIT 

76 BOH 

JMP 

SOUB 

77 ****••« 



78 ***** 

X 

E ***** 

79 •***•*« 



80 UXS 

LDA 

COLATT-l.X 

81 

CMP 

#$0E 

SE 

BNE 

B0H1 

83 

JMP 

OCCAS 

84 B0H1 

LDA 

#$0E 

85 

JMP 

S0UB1 

86 ••****« 




SE SUPERA 3 SALTA 
Cl-’l* .E-’X' .3-’S*) 

SE NO SALTA 

SE SI IL SEGNO RITORNA ’l* 
AGGIORNA COLONNA ATTUALE E 
PASSA AL PRONOST SUCCESS IU 
AGGIORNA COLONNA ATTUALE E 

ESCE 


CARICA SEGNO 
INCREMENTA 
DI 1 

LO CONFRONTA CON 3 
SE UGUALE A 3 SALTA 
SALTA AD AGGIORNARE 


CARICA SEGNO 
E' ’l'T 
SE NO SALTA 
SE SI DIUENTA ’E’ 


CARICA SEGNO 
E' 'X’? 

SE NO SALTA 

SALTA AD AGGIORN CON '£ ’ 


1 •**•*******••*••.*••••«*•••••*•*•••••«•••••••••*•*•* 

E • ROUTINE PER IL CONTROLLO DELLE COLONNE IMPOSSIBILI 

3 

4 • 49133 CONTIENE IL NUM . DI COLONNE IMPOSS INSERITE 

5 * 43E00-43359 ELENCO COLONNE IMPOSSIBILI 

6 • 49166-491B1 COLONNA ATTUALE CDA CONTROLLARE 

7 * 4915E NUMERO PRONOSTICI DEL CONCORSO 

8 ««*••«•****•»»«••*»•*••»••••»*«•••*•»»»**•••**•*•»*• 
3 • SE LA COLONNA DA CONTROLLARE CCOLONNA ATTUALE! 

10 • SUPERA IL CONDIZIONAM. DELLE COL. IMPOSS. ALLORA 

11 • ALL’USCITA DELLA ROUTINE IL BYTE SFD CONTERRÀ' '0* 


45 



IN CASO CONTRARIO SARA’ POSTO A 1 


15 

13 

14 

15 

16 

17 

18 
13 
30 
51 
55 

53 

54 

55 

56 

57 

58 

59 

30 

31 
35 

33 

34 

35 

36 

37 

38 
33 

40 

41 
45 

43 

44 

45 

46 

47 

48 

49 

50 

51 
55 

53 

54 

55 

56 

57 

58 

59 

60 
61 
65 
63 


NCOLinP - 49199 

COLIHP - 49500 

FLA8 - SFD 

POI NT - $FB 

COLATT - 49166 

COUNT - 5 

NPRON - 49155 


ORO SC43B 


; N COL. IflPOSS. INSERITE 
; INIZIO TABELLA COL. IMPOSS 
; FLA6 RISULTATO 0-OK 1-NO 

; COLONNA ATTUALE 

; NUMERO PRONOSTICI 


LDA NCOLIMP 
STA COUNT 
LDA #$00 
STA FLAG 
LDA #<COLIMP 

SBC #$01 
STA POI NT 
LDA #>CQLIMP 
STA POINT+1 


CARICA N. COL. IMP. INSER 
E LO PONE IN ’ COUNT' 
AZZERA IL 
FLAG DI CONFRONTO 
CARICA L'INDIRIZZO 
INIZ. TABELLA COL IMP-1 
E LO PONE IN 
POINT E 
IN 

POINT+1 


START 


LOOP 


LPX 


LDX 


LDY 

LDA 

BEO 

CMP 


BNE 

LDA 

STA 

INY 

INX 

CPX 

BEO 

BCC 

LDA 

BEO 

RTS 


#$01 


#$01 

C POINT) , Y 
LPX 

COLATT-1 , X 


LOOP1 

#$01 

FLAB 


NPRON 

LOOP 

LOOP 

FLAG 

CICLO 


INIZI ALI ZZA PUNTATORE 
ALL'INTERNO DELLA COLONNA 
ATTUALE CPRELIEUO SEGNI) 
INIZIALIZZA PUNTATORE PER 
PRELIEUI DA COLONNE IMPOSS 
CARICA SEGNO COLONN IMPOSS 
SE NON ESISTE SALTA A LPX 
CONFRONTA CON IL 
CORRISPONDENTE SEGNO DELLA 
COLONNA ATTUALE 
SE DIUERSI SALTA A LODP1 
SETTA FLAG DI 
CONFRONTO POSITIUO 
INCREMENTA PUNTATORI 
COL IMP E COL ATTUALE 
RAGGIUNTO N. DI PRONOST .7 
SE UGUALE 

0 MINORE, SALTA A LOOP 
CARICA FLAG DI CONFRONTO 
SE ZERO CONTINUA 
SE FLAG-1 LA COLONNA E’ DA 
SCARTARE, QUINDI ESCE 


CICLO LDA NPRON 
CLC 

ADC POINT 
STA POINT 


INCREMENTA PUNTATORE 
ALLA TABELLA COLONNE 
IMPOSSIBILI, CON IL 
NUMERO 


46 



BCC CL1 
INC POINT+1 
DEC COUNT 
LOA COUNT 
BNE START 


PRQNOSTICI 

DECREMENTA CONTATORE 
COL IMPOSS DA CONTROLLARE 
SE DIUERSO DA 0 RIPRENDE 
I CONTROLLI SULLA SUCCESS 
ALTRIMENTI ESCE 


AZZERA FLAG 
DI CONFRONTO 
E SALTA A 'CICLO ’ 


E * ROUTINE PER IL CALCOLO DEL NUMERO DI ACCOPPIATE 
3 • E CONFRONTO CON IL MIN E MAX IMPOSTI DALL'UTENTE 


5 * 43166-4S181 CONTIENE LA COLONNA ATTUALE 

6 * 4S15E CONTIENE IL NUMERO DI PRONOSTICI DEL CONCORS* 

7 • 435ES CONTIENE IL NUMERO MIN DI ACCOPPIATE 

B * 49360 CONTIENE IL NUMERO MAX DI ACCOPPIATE 


1 SE IL NUMERO DI ACCOPPIATE TROUATE NELLA COLONNA 
1 ATTUALE NON RIENTRA NEI LIMITI MIN E MAX IMPOSTI 
‘ IN USCITA IL BYTE SFD CONTERRÀ’ 1, ALTRIMENTI 
SARA’ POSTO A 0 


CALCOLO NUMERO ACCOPPIATE 


NUMERO MIN TRDUATO 
NELLA COLONNA ATTUALE 
NUMERO MAX TROUATO 
NUMERO PRONOSTICI 

NUMERO MINIMO IMPOSTO 
NUMERO MASSIMO IMPOSTO 
RISULTATO: 0-OK 1-NO 


47 


39 LDA NPRON 

40 LSR 

41 ASL 

42 

43 STA PRONI 

44 

45 

46 • CODIFICA ACCOPPIATE 

47 
40 

49 LDA COLATT 

50 STA TEMP 

51 LDA COLATT+1 

52 ASL 

53 CLC 

54 ADC COLATT+1 

55 CLC 

56 ADC TEMP 

57 STA ACCOP 

50 

59 LDA #S01 

60 STA NPRES 

61 

62 STA NACCOP 

63 

64 

65 LDX #503 

66 

67 CICLO LDA COLATT-l.X 

60 STA TEMP 

69 INX 

70 LDA CQLATT-1 , X 

71 ASL 

72 CLC 

73 ADC COLATT— 1 , X 

74 CLC 

75 ADC TEMP 

76 

77 LDY NACCOP 

70 

79 CONF CMP ACCOP-1 , Y 

00 

01 BNE LOOP 

02 TXA 

03 PHA 

04 TYA 

B5 TAX 

06 INC NPRES-1 , X 

07 PLA 

00 TAX 

09 JMP FINE 

90 


CARICA NUMERO PRONOSTICI 
LO TRASFORMA IN NUMERO 
DIUISIBILE PER 2 
ARROTONDANDO PER DIFETTO 
E LO PONE IN 'PRONI ’ 


CARICA SEGNO DA COL ATTUAL 
E LO PONE IN 'TEMP' 

CARICA IL SEGNO SUCCESS IUO 

MOLTIPLICA 

PER 

TRE 

ED AGGIUNGE 

IL UALORE DEL PRIMO SEGNO 
PONE IL RISULTATO DELLA 
DELL'ACCOPPIATA IN 'ACCOPP 
PONE A 1 IL NUMERO DI 
PRESENZE PER :L 'ACCOPP 
INOIUIDUATA 
PONE A 1 IL NUMERO DI 
ACCOPPIATE INDIUIDUATE 

POSIZIONA PPUNTATORE AL 
TERZO SEGNO DELLA COLONNA 
CARICA SEGNO 
MEMORIZZA IN 'TEMP' 

CARICA IL 
SEGNO SUCCESS IUO 
MOLTIPLICA 
PER 

TRE ED 

AGGIUNGE IL UALORE DEL 
SEGNO PRECEDENTE 

CARICA IL NUMERO DI ACCOPP 
FINORA INDIUIDUATE 
CONFRONTA CON I CODICI 
DELLE ACCOPPIATE PRECEDENT 
SE NON UGUALI SALTA A LOOP 
SE UGUALI 
INCREMENTA IL 
NUMERO DI PRESENZE 
DI 

QUELLA 
i ACCOPPIATA 

; E SALTA A 'FINE' 


48 


95 

93 

94 

95 

96 

97 

98 

99 

100 FINE 

101 
105 

103 

104 

105 

106 
107 
106 

109 

110 

111 FN1 
115 

113 

114 

115 

116 

117 

118 FNS 

119 

150 

151 
155 

153 

154 DEC 

155 

156 

3.37 *•••' 

158 

159 

130 

131 
133 

133 

134 

135 

136 NO 

137 

13B EXIT 

139 

140 UAI 

141 
145 


DEY 

BNE 

INC 

LDY 

STA 

LDA 

STA 


CONF 
NACCOP 
NACCOP 
ACCÒP-1 , Y 

#$01 

NPRES-1 , Y 


DECREM NUMERO ACCOPPIATE 
PRECEDENTI DA CONTROLLARE 
SE NON FINITE SALTA A CONF 
INCREM NUMERO ACC TROUATE 
MEMORIZZA CODICE ULTIMA 
ACCOPPIATA INDIUIDUATA 
E PONE A 1 IL 
NUMERO DI PRESENZE 


INX 

CPX PRONI 
BEO CICLO 
BCC CICLO 


INCREM PUNTAT COLONNA ATT 
COLONNA TERMINATA? 

SE 

NO RIPRENDE DA 'CICLO’ 


LDA #S11 
STA ACCMI 
LDA #$00 
STA ACCMA 


PONE A 17 IL NUMERO MIN 
DI ACCOPPIATE TROUATE 
PONE A ZERO IL NUMERO MAX 
DI ACCOPPIATE TROUATE 


LDY 

LDA 

CMP 

BEO 

BCC 

STA 

CMP 

BEO 

BCS 

STA 

DEY 

BNE 


NACCOP 
NPRES-1, Y 

ACCMA 

FN3 

FNS 

ACCMA 

ACCMI 

DEC 

DEC 

ACCMI 


FN1 


CARICA N. ACCOPP. TROUATE 
CARICA NUMERO PRESENZE 
PER CIASCUNA ACCOPPIATA 
E* MAGGIORE DEL N. MAX? 

SE 

NO SALTA 

ALTRIMENTI AGGIORNA IL 
NUMERO MAX DI ACCOPP. 

N. PRESENZE MINORE DEL 
NUMERO MINIMO? 

SE 

NO SALTA 

ALTRIMENTI AGGIORNA IL 
NUMERO MAX DI ACCOPP. 
DECREM N. ACCOPP. TROUATE 
SE NON FINITE SALTA A FN1 


LDA #$00 
STA OUTPUT 
LDA ACCMI 
CMP MIN 
BEO UAI 
BCS UAI 
LDA #$01 
STA OUTPUT 
RTS 


PONE A ZERO IL FLAG 
DEL RISULT. DEL CONFRONTO 
CARICA N MIN ACC. TROU 
CONFR CON MINIMO IMPOSTO 
SE UGUALE 0 
MAGGIORE SALTA A ’UAI ' 
SETTA FLAG DI 
CONFRONTO C1-ELIMINARE3 
ESCE 


LDA ACCMA 
CMP MAX 
BEQ EXIT 


CARICA N. MAX ACC. TROU 
CONFRONTA CON MAX IMPOSTO 
SE UGUALE 


143 BCC EXIT ; 0 MINORE ESCE 

144 JMP NO ; SALTA A 'NO' 

145 

14B ****************•**•*•*♦•**••*** 


1 •»»§•*»••»•*•»**»*«•#•••*§»«•»*•#•••*»*»•*••< 


2 * ROUNTINE PER IL CALCOLO DEL NUMERO DI TERZINE E 

3 • CONFRONTO CON LIMITI MIN E MAX IMPOSTI 

4 

5 * 4S152 CONTIENE IL NUMERO DI PRONOSTICI DEL CONCORS 
S * 49530 CONTIENE IL NUM MIN DI ACCOPPIATE IMPOSTO 

7 • 49361 CONTIENE IL NUM MAX DI ACCOPPIATE IMPOSTO 
B * 49166-49181 CONTIENE LA COLONNA ATTUALE 
9 

10 * SE IL NUMERO DI TERZINE RIENTRA NEI LIMITI MINIMO 

11 * E MASSIMO, IN USCITA IL BYTE SFD CONTERRÀ' ZERO 

12 • IN CASO CONTRARIO SARA’ SETTATO 


13 

14 




15 

COLATT 

- 

49166 ; COLONNA ATTUALE 

16 

TEMP 

- 

02 

17 

NTERZ 

- 

49525 

1B 

TERZ 

- 

49363 

19 

NPRES 

- 

49444 

20 

TERMI 

- 

49526 

21 

TERMA 

- 

49527 

22 

NPRON 

- 

49152 INUMERÒ PRONOSTICI 

23 

PRONI 

- 

49528 

24 

MIN 

- 

49530 ; NUMERO MIN TERZINE IMPOSTO 

25 

MAX 

- 

49361 ; NUM MAX TERZINE IMPOSTO 

26 

OUTPUT 

- 

SFD ; RISULTATO CONFRONTO 

27 




20 


ORG 

50463 

29 




30 




31 

* SYS 5046B TO START ROUTINEI ! • 

32 

«9 


• 

33 

* PAY 

ATTENTION PLEASE! • 

34 




35 




36 

TABEL 

DFB 

03,06,09,12,15 

37 



; TABELLA INIZIO TERZINE 

38 



; ALL’ INTERNO DELLA COLONNA 

39 




40 


LDY 

#$01 ;PONE A 1 IL PUNTATORE ALLE 

41 



; TERZINE 

42 




43 

* DEFINIZIONE TERZINA * 

44 

«• 

DA 

ESAMINARE » 

45 


»»•*< 



46 


50 


cmp 

BEQ 

BCS 

DEY 

LDA 


49 TB1 

50 

51 

52 

53 

54 

55 STA 

56 JMP 

57 ADJUST INY 

50 CPX 

53 BNE 

60 LDA 

61 OKI STA 

62 JMP 

63 

64 DK LDA 

65 JMP 

66 


NPRON 

TABEL-l.Y 

OK 

ADJUST 

TABEL-1 , Y 

PRONI 

START 

#$06 

TB1 

#$0F 

PRONI 

START 

TABEL-1 , Y 
OKI 


67 

66 * CODIFICA LE TI 

B g *#•••*•••#••*••< 

70 

71 START LDA I 

72 


73 


76 

77 


STA 

LDA 

ASL 

CLC 

ADC 

CLC 

ADC 

STA 

LDA 

ASL 

ASL 

ASL 

CLC 

ADC 

CLC 

ADC 


TEMP 

CDLATT+1 


TEMP 

TEMP 

COLATT+2 


COLATT+2 

TEMP 


SI STA TERZ 

92 

93 LDA #101 

94 STA NPRES 

95 STA NTERZ 

96 

97 

9B LDX #$04 


CARICA IN ACC IL NUMERO 
DI PRONOSTICI 
E CONFRONTA CON TABELLA 
SE UGUALE SALTA AD •OK’ 

SE MABG. SALTA A • ADJUST’ 
ALTRIMENTI TRASFERISCE 
IL UALORE PRECED DELLA 
TABELLA 
IN 'PRONI' 

INCREM PUNTAT ALLE TERZINE 
CONFRONTA CON 6 
SE MINORE SALTA A 'TB1' 
ALTRIM . PONE 15 IN 
PRONI 




CARICA PRIMO SEGNO DELLA 

COLONNA ATTUALE 

E LO MEMORIZZA IN 'TEMP' 

CARICA SEGNO SUCCESSIVO 

E LO MOLTIPLICA 

PER 

TRE 

ADDIZIONA 

IL PRIMO SEGNO 

E PONE IL RISULT. IN 'TEMP 

CARICA IL TERZO SEGNO 

E 

LO 

MOLTIPLICA 

PER 

NOUE 

POI 

ADDIZIONA IL UALORE 
PRECEDENTEM IMMAGAZZINATO 
IN ’TEMP ' 

REGISTRA CODICE DELLA 

PRIMA TERZINA 

PONE A 1 IL NUMERO DI 

PRESENZE DELLA 1A TERZINA 

ED IL NUMERO DI TERZINE 

INDIVIDUATE 

POSIZ PUNTATORE ALLA 



93 



100 CICLO 

LDA 

COL ATT- 1 , X 

101 

STA 

TEMP 

102 

INX 


103 

LDA 

COL ATT- 1 , X 

104 

ASL 


105 

CLC 


106 

ADC 

COLATT-1, X 

107 

CLC 


10B 

ADC 

TEMP 

103 

STA 

TEMP 

110 



111 

INX 


115 

LDA 

COLATT-1 , X 

113 

ASL 


114 

ASL 


115 

ASL 


116 

CLC 


117 

ADC 

COLATT-1 , X 

118 

CLC 


119 

ADC 

TEMP 

150 



151 

LDY 

NTERZ 

155 CONF 

CMP 

TERZ-l.Y 

153 



154 



155 

BNE 

LOOP 

156 

TXA 


157 

PHA 


156 

TYA 


159 

TAX 


130 

INC 

NPRES-1 , X 

131 

PLA 


135 

TAX 


133 

JMP 

FINE 

134 



135 LOOP 

DEY 


136 

BNE 

CONF 

137 



138 

INC 

NTERZ 

139 

LDY 

NTERZ 

140 

STA 

TERZ-l.Y 

141 



145 

LDA 

»S01 

143 

STA 

NPRES-1, Y 

144 



145 FINE 

INX 


146 



147 

CPX 

PRONI 

140 



149 

BEQ 

CICLO 

150 

BCC 

CICLO 


SECONDA TERZINA 
CARICA SEGNO 
REGISTRA IN 'TEMP' 

CARICA 

IL SECONDO SEGNO 
E MOLTIPLICA 
PER 

TRE, POI 

ADDIZIONA IL CODICE 
DEL SEGNO PRECEDENTE 
E MEMORIZZA RISULTATO 
IN ’TEMP ’ 

CARICA 

IL TERZO SEGNO 
E 

LO MOLTIPLICA 

PER 

NOVE 

POI ADDIZIONA I 
CODICI DEI 

DUE SEGNI PRECEDENTI 

CARICA N. TERZ. TROUATE 
CONFRONTA IL CODICE DELLA 
ULTIMA TERZINA CON QUELLI 
DELLE PRECEDENTI 
SE DIUERSI SALTA A ’LOOP’ 

ALTRIMENTI 
INCREMENTA 
IL NUMERO 
DI PRESENZE 
DELLA TERZINA 
TROVATA 

E SALTA A 'FINE ’ 

DECREM NUMERO TERZINE 
SE NON FINITE 
CONTINUA IL CONFRONTO 
INCREM NUMERD TERZINE 

E MEMORIZZA IL CODICE 
DELLA TERZINA TROVATA 
E PONE A 1 IL NUMERO 
DI PRESENZE 

INCREM PUNTATORE ALLE 
TERZINE 

SE LA COLONNA NON 
E’ TERMINATA, ALLORA 
RIPRENDE I 

CONTROLLI DA 'CICLO ’ 


52 



151 




15E 

LDA 

#S11 

PONE A 11 IL NUMERO 

153 

STA 

TERMI 

MINIMO DI TERZINE 

154 

LDA 

#S00 

ED A ZERD IL NUMERO 

155 

STA 

TERMA 

MASSIMO DI TERZINE 

156 




157 <**«** 




158 * CONFRONTO CON LIMITI IMPOSTI * 

159 •••• 




160 




161 

LDY 

NTERZ 

; CARICA NUMERO TERZ TROUATE 

165 FN1 

LDA 

NPRES-l.Y 

; CARICA N. DI PRESENZE DI 


163 

164 

165 

166 
167 
16B 

169 

170 

171 FN5 
175 

173 

174 

175 

176 

177 DEC 
170 
179 
160 

IBI 

1B5 ••••* 

103 
1B4 
185 
1B6 


CMP TERMA 


BEO 

BCC 

STA 


FNS 

FNB 

TERMA 


CMP TERMI 


BEO 

BCS 

STA 


DEC 

DEC 

TERMI 


UNA TERZINA NELLA 
COLONNA ATTUALE 
CONFRONTA CON IL NUMERO 
MASSIMO DI TER2INE 
SE USUALE 

0 MINORE, SALTA A ’ FNE ’ 
ALTRI M . AGBIORNA IL NUMERO 
MASSIMO DI PRESENZE 
CONFRONTA CON NUMERO 
MINIMO DI TERZINE 
SE USUALE 

0 MAGGIORE SALTA A 'DEC* 
ALTRIM . AGGIORNA IL NUMERO 
MINIMO DI PRESENZE 
DECREM NUMERO TERZINE 
DA CONTROLL IL NUMERO 
DI PRESENZE 

SE NON TERMINATE SALTA 


LDA 

STA 


#S00 

OUTPUT 


1B7 

100 


LDA 

TERMI 

CARICA IL NUMERO MINIMO 

DI PRESENZE DI UNA TERZINA 

IBS 

190 


CMP 

MIN 

E CONFR. CON IL 

MINIMO IMPOSTO 

191 


BEO 

UAI 

SE UGUALE 

195 


BCS 

UAI 

0 MAGGIORE SALTA A *UAI’ 

193 

NO 

LDA 

#S01 

ALTRIM. SETTA IL FLAG DI 

194 


STA 

OUTPUT 

RISULTATO CI -SCARTARE COL) 

195 

196 

EXIT 

RTS 


ESCE 

197 

19B 

UAI 

LDA 

TERMA 

CARICA N. MASSIMO DI 
PRESENZE DELLE TERZINE 

199 

500 


CMP 

MAX 

E CONFRONTA CON IL 

MASSIMO IMPOSTO 

501 


BEO 

EXIT 

SE UGUALE 

505 


BCC 

EXIT 

0 MINORE SALTA A ’EXIT' 


AZZERA IL FLAG DI 
RISULTATO C0-COLONNA OJO 


53 


503 

504 

505 


JMP NO 


1 

5 

• ROUTINE PER 

IL CALCOLO 

DEL NUMERO DI QUARTINE E 


3 

* CONFRONTO CON LIMITI MINIMO E MASSIMO IMPOSTI 


5 

• 43155 

CONTIENE IL NUM . 

DI PRONOSTICI DEL CONCORSO 


B 

* 43531 

CONTIENE IL MIN, 

IMPOSTO PER QUARTINE 


7 

* 43365 

CONTIENE IL MAX. 

IMPOSTO PER LE QUARTINE 


8 

* 43166- 

-43181 

CONTENGONO 

LA COL. ATTUALE CDA CONTRI 


10 

• SE IL 

NUMERC 

DI PRESENZE DELLE VARIE QUARTINE 


11 

• TROVATE NELLA COLONNA ATTUALE RIENTRANO NEI LIMITI» 

15 

• MINIMO E MASSIMO IMPOSTI, IN USCITA IL BYTE SFD 

* 

13 

* SARA’ 

AZZERATO, IN CASO CONTRARIO SARA* SETTATO 

m 

14 





m 

15 






15 

COLATT 

- 

43166 

; COLONNA ATTUALE 


17 

TEMP 

- 

05 



18 

NQUAR 

- 

43555 



18 

OUAR 

- 

43363 



50 

NPRES 

- 

43444 



51 

QUAMI 

- 

43556 



55 

OUAMA 

- 

43557 



53 

NPRON 

- 

43155 

; NUMERO PRONOSTICI 


54 

PRONI 

- 

43558 



55 

MIN 

- 

43531 

INUMERÒ MINIMO DI PRESENZE 

25 




; IMPOSTO PER LE QUARTINE 


57 

MAX 

- 

43365 

INUMERÒ MASSIMO DI PRESENZE 

58 




; IMPOSTO PER LE QUARTINE 


58 

OUTPUT 

- 

SFD 

; FLAG DI RISULTATO DEL 


30 




; CONFRONTO 


31 






35 


ORB 

50705 



33 






34 






35 






35 


LDA 

NPRON 

; ARROTONDA 


37 


LSR 


; PER DIFETTO 


38 


LSR 


; IL NUMERO DI 


38 


ASL 


; PRONOSTICI AD 


40 


ASL 


; UN NUMERO MULTIPLO DI 4 


41 


STA 

PRONI 

; E PONE IL RISULT. IN PRONI 

45 






43 

START 

LDA 

COLATT 

; CARICA PRIMO SEGNO DELLA 


44 




; COLONNA ATTUALE 


45 


STA 

TEMP 

; E MEMORIZZA IL CODICE IN 


46 




; ’ TEMP ’ 


47 


LDA 

COLATT+1 

; CARICA IL SECONDO SEGNO 



54 



49 

ASL 


MOLTIPLICA IL SUO 

49 

CLC 


CODICE PER 

50 

ADC 

COLATT+1 

TRE 

51 

CLC 


POI ADDIZIONA CODICE DEL 

52 

ADC 

TEflP 

PRIMO SEGNO 

53 

STA 

TEMP 

E MEMOR. RISULTATO IN TEMP 

54 

LDA 

COLATT+2 

CARICA TERZO SEGNO 

55 

ASL 


MOLTIPLICA 

56 

ASL 


IL SUO 

57 

ASL 


CODICE 

59 

CLC 


PER 

59 

ADC 

COLATT+2 

NOUE 

60 

CLC 


POI ADDIZIONA IL 

61 

ADC 

TEI1P 

CONTENUTO DI ’ TEMP ’ 

65 

STA 

TEMP 

ED IL RISULTATO RIMANE 

63 



MEMORIZZATO IN TEMP 

64 *••***« 




65 




66 

LDA 

COLATT+3 

CARICA QUARTO SEGNO 

67 

ASL 


MOLTIPLICA 

69 

PHA 


IL SUO CODICE 

69 

CLC 


PER 

70 

ADC 

TEMP 

27, POI 

71 

STA 

temp 


72 

PLA 



73 

ASL 



74 

ASL 



75 

PHA 



76 

CLC 



77 

ADC 

TEflP 


79 

STA 

TEflP 


79 

PLA 



90 

ASL 



B1 

CLC 



82 

ADC 

TEflP 

; ADDIZIONA IL CONTENUTO 

93 

CLC 


; DI TEMP 

94 

ADC 

COLATT+3 

; E MEMORIZZA IL RISULTATO 

85 

STA 

□UAR 

IN ’QUAR ’ COME CODICE 

BE 



DELLA PRIMA QUARTINA 

B7 




89 *•**•*• 




89 




90 

LDA 

#$01 

PONE A 1 IL NUMERO DI 

91 

STA 

NPRES 

PRESENZE DELLA QUARTINA 

92 

STA 

NQUAR 

ED IL NUMERO DI QUARTINE 

93 



INDIUIDUATE 

94 




95 

LDX 

#S05 

PUNTA ALLA QUARTINA 

96 



SUCCESS IUA 

97 CICLO 

LDA 

COL ATT- 1 , X 

CARICA PRIMO SEGNO 

99 

STA 

TEflP 

MEM. CODICE IN 'TEMP ’ 

99 

INX 


CARICA 


55 



100 


LDA 

COLATT-1 , X ; IL SEGNO SUCCESSIUQ 

101 


ASL 

; E LO 

102 


CLC 

; MOLTIPLICA 

103 


ADC 

COLATT-1 ,X ; PER TRE 

104 


CLC 

; ADDIZIONA IL CONTENUTO 

105 


ADC 

TEMP ; DI TEMP 

106 


STA 

TEMP ; E MEMORIZZA IN 'TEMP* 

107 


INX 

; CARICA TERZO 

10B 


LDA 

COLATT-1 ,X ; SEGNO 

109 




110 


ASL 

; E LO 

111 


ASL 

; MOLTIPLICA 

112 


ASL 

j PER 

113 


CLC 


114 


ADC 

COLATT-1 ,X ; NOUE 

115 


CLC 

; PO I ADDIZIONA IL 

116 


ADC 

TEMP ; CONTENUTO DI TEMP 

117 


STA 

TEMP ; IL RISULT. RIMANE IN TEMP 

116 




119 


INX 

; CARICA 

120 


LDA 

COLATT-1 ,X ; QUARTO SEGNO 

121 




122 

• MOLTIPLICA 

PER 27 IL CODICE DEL QUARTO SEGNO, POI * 

123 

* ADDIZIONA : 

CODICI DEI SEGNI PRECEDENTI, CONTENUTI* 

124 

• IN 

’TEMP ’ ED IL RISULTATO RIMANE IN ACCUMULATORE • 

125 




126 




127 




12B 


ASL 


129 


PHA 


130 


CLC 


131 


ADC 

TEMP 

132 


STA 

TEMP 

133 


PLA 


134 


ASL 


135 


ASL 


136 


PHA 


137 


CLC 


130 


ADC 

TEMP 

139 


STA 

TEMP 

140 


PLA 


141 


ASL 


142 


CLC 


143 


ADC 

TEMP 

144 


CLC 


145 


ADC 

COLATT-1 ,X 

146 




147 




148 




149 




150 


LDY 

NQUAR ; CARICA N. QUART TROUATE 

151 

CONF 

CMP 

QUAR-l.Y ; CONFRONTA ULTIMA 


56 


152 



QUARTINA CON QUELLE 

153 



INDIUIDUATE IN PRECEDENZA 

154 

BNE 

LOOP 

SE DIUERSE SALTA A •LOOP’ 

155 

TXA 


ALTRIMENTI 

156 

PHA 


NE 

157 

TYA 


INCREMENTA 

158 

TAX 



159 

INC 

NPRES-1 , X 

IL NUMERO DI PRESENZE 

160 

PLA 



161 

TAX 



162 

jnp 

FINE 

E SALTA A 'FINE' 

163 




164 LOOP 

DEY 


DECREM N. QUART DA 

165 



CONFRONTARE 

166 

BNE 

CONF 

SE NON TERMINATE 

167 



RIPRENDE CONFRONTI 

168 

INC 

NQUAR 

ALTRIMENTI INCREMENTA 

169 



IL NUMERO DI QUARTINE 

170 

LDY 

NQUAR 


17Ì 

9TA 

QUAR-1 , Y 

E MEMORIZZA IL CODICE 

172 



DELL’ULTIMA QUARTINA 

173 



INDIUIDUATA 

174 

LDA 

#$01 

E PONE A 1 IL 

175 

STA 

NPRES-1 ,Y 

NUMERO DI PRESENZE 

176 




177 FINE 

INX 


INCREMENTA PUNTATORE 

170 



ALL’INIZIO DELLE QUARTINE 

179 

CPX 

PRONI 

SONO TERMINATE? 

160 

BEQ 

CICLO 

SE 

IBI 

BCC 

CICLO 

NO CONTINUA DA 'CICLO' 

182 




183 

LDA 

#$11 ; 

;PONE A 17 IL NUMERO MIN. 

104 

STA 

OLIAMI ! 

1 DI PRESENZE DELLE QUARTINE 

IBS 

LDA 

#$00 

; ED A 0 IL MASSIMO DI 

186 

STA 

QUAMA i 

; PRESENZE DELLE QUARTINE 

187 




188 

LDY 

NQUAR 

CARICA N. QUART. TROUATE 

189 FN1 

LDA 

NPRES-1, Y 

CARICA N. PRESENZE 

190 



DI UNA QUARTINA 

191 

CMP 

QUAMA 

CONFRONTA CON MAX PRESENZE 

192 

BEO 

FN2 

SE UGUALE 

193 

BCC 

FN2 

0 MINORE SALTA A ’FN2’ 

194 

STA 

QUAMA 

ALTRIMENTI AGGIORNA 

195 



IL NUMERO MAX DI PRESENZE 

196 FN2 

cnp 

QUAMI 

CONFRONTA CON MIN PRESENZE 

197 

BEQ 

DEC 

SE UGUALE 

198 

BCS 

DEC 

0 MAGGIORE SALTA A ’DEC’ 

199 

STA 

QUAMI 

ALTRIMENTI AGGIORNA 

200 



NUMERO MINIMO DI PRESENZE 

201 DEC 

DEY 


DECREM N QUART DA CONTROLL 

202 

BNE 

FN1 

SE NON FINITE SALTA A FN1 


203 


204 

205 


206 

LDA 

#$00 

; AZZERA IL 

207 

STA 

OUTPUT 

; FLAG DI RISULTATO 

208 

LDA 

QUAMI 

; CARICA N. MIN DI PRESENZE 

209 

CMP 

MIN 

•.CONFRONTA CON MIN IMPOSTO 

210 

BEQ 

UAI 

; SE UGUALE 

211 

BCS 

UAI 

; 0 MAGGIORE SALTA A ’UAI ’ 

212 NO 

LDA 

#$01 

; ALTRIMENTI SETTA IL 

213 

STA 

OUTPUT 

; FLAG DI RISULTATO 

214 



; FLAG-1 COLONNA NON UAL IDA 

215 EXIT 

RTS 


;ESCE DALLA ROUTINE 

216 




217 UAI 

LDA 

QUAMA 

; CARICA N. MAX DI PRESENZE 

218 

CMP 

MAX 

; CONFRONTA CON MAX IMPOSTO 

219 

BEQ 

EXIT 

; SE UGUALE 

220 

BCC 

EXIT 

; 0 MINORE SALTA A ’EXIT’ 

221 

JMP 

NO 

; ALTRIMENTI SALTA A ‘NO’ 

222 




223 **•*»***«•* 

• ••»« 

**•»*••••»*•* 


1 ••***•*** 




2 * ROUTINE 

PER 

IL CONTROLLO 

DEL NUMERO DI SEGNI E * 


3 * DELLE CONSECUT I U I TA ’ CON I LIMITI MINIMO E MASSIMO* 

4 * IMPOSTI DALL’UTENTE * 

5 *•••••*•»»»*••••*•«•«•**»*••*•»*••■•«*••*••»*•»**«••< 


S 

7 

8 
S 

10 

11 

12 

13 

14 

15 

16 
17 
1B 
1S 
20 
21 
22 

23 

24 

25 

26 

27 

28 
23 
30 


* ATTENZIONE: QUESTA ROUTINE DEUE ESSERE CHIAMATA 

* SOLO DOPO AUER ESEGUITO LA ROUTINE CHE CALCOLA IL 

* NUMERO DI SEGNI E CONSECUT IU ITA ’ PRESENTI NELLA 

* COLONNA ATTUALE I ! I ! 

• ••*»***••«»*•••«••••*•••••••••••••••••■•••«•*•»**•< 

* 43532/3/4 CONTENGONO IL NUMERO MINIMO DI SEGNI 

* '1* , ’X’ , ’2’ CHE DEUONO ESSERE PRESENTI 

* NELLE COLONNE CHE SI UOGLIONO GIOCARE 

* 43535/6/7 CONTENGONO IL NUMERO MASSIMO DI SEGNI 

* 4953B/4S540 CONTENGONO LA CONSECUT IU I TA ’ MINIMA 

* PER I SEGNI ’l’.’X’ E ’2’ PERCHE’ LA 

* COLONNA ATTUALE POSSA ESSERE GIOCATA 

* 49541/2/3 CONTENGONO LA CONSECUT IU ITA ’ MASSIMA 


* IN USCITA IL BYTE SFD CONTERRÀ’ ZERO SE IL NUMERO * 
» DI SEGNI E LE CONSECUT IU I TA ’ DELLA COLONNA ATTUALE* 

* RISPETTANO I LIMITI MIN E MAX IMPOSTI DALL’UTENTE * 

* IN CASO CONTRARIO SFD CONTERRÀ’ IL UALORE ’l’ * 


NSBN 

CONSMI 

CONSMA 

FLAG 


49154 

49157 

49160 

SFD ; FLAG DI RISULTATO 


58 




31 *••••*•* 




3E * LABELS 

CONDIZIONI UTENTE 

• 

33 * CMIN E 

flAX 

SEGNI E CONSECUT 3 * 

34 •***•**« 




35 MINSGN 

- 

49532 


35 MAXSGN 

• 

49535 


37 MINCONS 

- 

4953B 


3B MAXCONS 

- 

49541 


39 •**•••*• 

• ••«« 



40 




41 

ORG 

50966 


42 




43 *•*••*** 




44 




45 

LDA 

#500 

AZZERA IL 

45 

STA 

FLAG 

FLAG DI RISULTATO 

47 




48 

LDX 

#503 

INIZIALIZZA CICLO DI 

49 



CONTROLLO PER I TRE SEGNI 

50 LOOP 

LDA 

NSGN-l.X 

CARICA NUMERO PRESENZE 

51 



DEI SEGNI 

52 

CflP 

MINSGN-l.X 

CONFRONTA CON MIN IMPOSTO 

53 

BEO 

CONT 

SE UGUALE 

54 

BCS 

CONT 

D MAGGIORE SALTA A *CONT’ 

55 NO 

LDA 

#501 

ALTRIMENTI SETTA IL FLAB 

55 

STA 

FLAG 

DI RISULTATO C 1-ELIMINARE3 

57 

RTS 


ED ESCE DALLA ROUTINE 

5B CONT 

CUP 

MAXSBN-l.X 

CONFRONTA CON MAX IMPOSTO 

59 

BEO 

CTI 

SE UGUALE 

60 

BCC 

CTI 

0 MINORE SALTA A ’CTl* 

61 

JMP 

NO 

ALTRIMENTI SALTA A 'NO* 

52 CTI 

□EX 


DECREMENTA CICLO 

63 

BNE 

LOOP 

SE NON TERMINATO SALTA 

64 




55 ••••••••« 




66 • CONTROLLO CONSECUT IUI TA * 

+ 

67 ••••••••« 




66 




69 

LDX 

#503 

; INIZIALIZZA CICLO DI 

70 



i CONTROLLO CONSECUT I UITA ’ 

71 



; PER I TRE SEGNI 

72 ANCORA 

LDA 

coNsni-i,x 

; CARICA CONSECUTIVA ’ 

73 



; MINIMA DI UN SEGNO 

74 

CMP 

I1INCONS-1.X 

; CONFRONTA CON MIN IMPOSTO 

75 

BEO 

REPEAT 

SE UGUALE 

76 

BCS 

REPEAT 

0 MAGGIORE SALTA A 1 REPEAT 

77 

JMP 

NO 

; ALTRIMENTI SALTA A 'NO ’ 

78 




79 REPEAT 

LDA 

CONSMA-l.X 

; CARICA CONSECUTIUITA* 

80 



MASSIMA DI UN SEGNO 

81 

CUP 

HAXCONS-l.X 

; CONFR . CON MAX IMPOSTO 

B2 

BEO 

LOOP1 

SE UGUALE 


83 

BCC 

LOOP1 

84 

JMP 

NO 

85 



86 LOOP1 

DEX 


B7 

BNE 

ANCORA 

BB 

RTS 



89 

90 

91 


; 0 MINORE SALTA A 'LOOPl* 
; ALTRIMENTI SALTA A 'NO* 

; DECREMENTA CICLO 
; SE NON FINITO SALTA 
; ALTRIMENTI ESCE DALLA 
; ROUTINE CON IL FLAG DI 
[RISULTATO INUARIATO C0J 


1 

5 

* ROUTINE PER 

DECREMENTARE DI UNA UNITA’ IL NUMERO 


3 

* DI 

COLONNE DEL SISTEMA 

RIMASTE DA SUILUPPARE 


5 

* 49715/49755 

CONTENGONO 

I UALORI 'ASCII’ DELLE 


6 

* 


CIFRE DEL NUMERO DI COLONNE DA SUILUPP* 

7 

»***•»*•****•*»*••••<■ •»**»* **«*•««■ 

9 

CIFRE 

. 

49715 

[ASCII CIFRE COLONN DA SU IL 

10 


ORB 

5C75B 



ii 






15 






13 






14 


LDX 

#507 

; INIZI AL IZZA CICLO 0-7 


15 

START 

LDA 

CIFRE , X 

[CARICA UNA CIFRA 


16 


CMP 

#530 

[SE 0 


17 


BEQ 

SUPER 

[SALTA A 'SUPER’ 


1B 


DEC 

CIFRE, X 

[DECREMENTA DI UNA UNITA 


19 


RTS 


; ED ESCE DALLA ROUTINE 


50 

SUPER 

LDA 

#S3S 

[CARICA ASCII DI 9 


51 


STA 

CIFRE , X 

;E MEMORIZZA CIFRA 


55 


DEX 


[DECREMENTA CICLO 


53 


BPL 

START 

[SE NON TERMINATO SALTA 


54 


RTS 


[ESCE DALLA ROUTINE 


55 






56 



»••••#*•***« 


»•* 


1 

5 

3 

4 

5 
S 
7 
0 
9 

10 

11 

15 

13 


»«**M*«»**M«**»M*»*«M«*»tt******»***»W**Ht«*«l 

* ROUTINE PER L’ELIMINAZIONE 01 SEQUENZE DI SEGNI 

* INDIPENDENTEMENTE DALLA POSIZIONE IN CUI SI 

* TROUANO ALL’INTERNO DELLE COLONNE DEL SISTEMA 


* 49155 CONTIENE IL NUMERO DI PRONOSTICI 

* 49544/49703 CONTENGONO L’ELENCO DELLE SEQUENZE DI 

* SEGNI DA ELIMINARE CSE LA SEQUENZA E’ 

* INFERIORE AL NUMERO DI PRONOSTICI 

* E’ NECESSARIO. COMPLETARE LA SEQUENZA 

* CON DEGLI ZERI 

* 49704 CONTIENE IL NUMERO DI SEQUENZE INSERITE 

* 49166-491B1 CONTENGONO LA COLONNA ATTUALE 


60 



14 • 49723/49735 CONTENGONO LE LUNGHEZZE DELLE SEQUENZE 

15 * 49705/49714 CONTENGONO PER OGNI SEQUENZA DI SEGNI 

16 • LA FORMULA CN . PRONOSTICI-LUNGHEZZAT+1 

17 

18 * IN USCITA SFD CONTERRÀ’ ’0* SE LA COLONNA PRESA 
13 • IN ESAME (COLONNA ATTUALE) NON CONTIENE NESSUNA 

20 * DELLE SEQUENZE DI SEGNI INSERITE, IN CASO 

21 • CONTRARIO SFD CONTERRÀ’ ’l*. 

22 

23 • I SEGNI ’l’.’X’ E ’2’ SONO CODIFICATI I MEMORIA 

24 * RISPETTIOAMENTE CON I UALORI 1,2, E 3 

25 
26 


27 ****•*•« 




28 FLAG 

- 

SFD 

FLAG DI RISULTATO 

29 •***•**• 




30 




31 NPRON 

- 

49152 

NUMERO PRONOSTICI 

32 NGRUP 

- 

49704 

SEQUENZE INSERITE 

33 CURGRU 

• 

2 

GRUPPO CORRENTE IN FASE 

34 



DI CONTROLLO 

35 GRUPPI 

- 

49544 

SEQUENZE DI SEGNI DA 

36 



ELIMINARE DALLE COLONNE 

37 



DA GIOCARE 

3B COLATT 

- 

49166 

COLONNA ATTUALE 

39 POINTER 

- 

SFB 

PUNTATORE A DUE BYTES 

40 



ALLA SEQUENZA DA ESAMINARE 

41 ICOL 

- 

SFE 

PUNTATORE ALL’ELEMENTO 

42 



CORRENTE ALL’INTERNO 

43 



DELLA COLONNA ATTUALE 

44 LENGHT 

- 

49723 

LUNGHEZZE SEQUENZE 

45 NUMER 

= 

49705 

cnpronost.-lungh:+i 

46 



PER LE UARIE SEQUENZE 

47 TEMP 

- 

S02A7 


48 NUMI 

- 

S02AB 

PUNTATORE ALL’INTERNO 

49 



DELLA SEQUENZA DA CONTROLL 

50 




51 

ORG 

51054 


52 




53 *•»»«•»* 




54 




55 

LDA 

#$00 

AZZERA FLAG 

56 

STA 

FLAG 

DI RISULTATO 

57 

LDA 

#$01 

PONE A 1 IL PUNTATORE 

58 

STA 

CURGRU 

ALLA SEQUENZA CORRENTEMENT 

59 



IN ESAME 

60 

LDA 

#<8RUPPI 

INIZIALIZZA PUNTATORE 

61 

STA 

POINTER 

ALLA ZONA DI MEMORIA 

62 

LDA 

#>GRUPPI 

OOUE SONO MEMORIZZATE 

63 

STA 

POINTER+1 

LE SEQUENZE DI SEGNI 

64 LOOP 

LDA 

#$01 

PONE A 1 IL PUNTATORE 

65 

STA 

ICOL 

AL DATO CORRENTE 



66 

67 


68 

STA 

NUMI 

69 

LDX 

CURGRU 

70 

LDA 

NUMER-1 , X 

71 



75 

STA 

TEMP 

73 



74 START 

LDY 

ICOL 

75 CONFR 

LDA 

COLATT-1 , 1 

76 

LDY 

NUMI 

77 

DEY 


78 

CMP 

CPOINTER5 | 

73 

BNE 

NON 

B0 



81 

INC 

NUMI 

85 

LDA 

NUMI 

63 

LDX 

CURGRU 

84 

CMP 

LENGHT-1 , ) 

85 ' 



B6 

BEQ 

ANCORA 

87 

BCC 

ANCORA 

BB 

JMP 

NOEXIT 

B9 



90 ANCDRA 

LDA 

ICOL 

91 

CLC 


95 

ADC 

NUMI 

93 

SEC 


94 

SBC 

*S01 

95 

TAY 


96 

JMP 

CONFR 

97 



9B NON 

INC 

ICOL 

99 

LDA 

#S01 

100 

STA 

NUMI 

101 

DEC 

TEMP 

105 



103 



104 

LDA 

TEMP 

105 

BNE 

START 

106 



107 

INC 

CURGRU 

10B 

LDA 

CURGRU 

109 



110 

CMP 

NGRUP 

111 



115 

BEQ 

NEXT 

113 

BCC 

NEXT 


114 

115 RTS 

116 


ALL’INTERNO DELLA COLONNA 
ATTUALE 

E DELLA SEQUENZA CORRENTE 
CARICA IN ACCUMULATORE 
LA LUNGHEZZA DELLA 
SEQUENZA CORRENTE 
E LA PONE IN 'TEMP* 

; CARICA UN SEGNO DALLA 
; COLONNA ATTUALE 
; E LO 

CONFRONTA CON QUELLO 
Y ; DELLA SEQUENZA 
; SE DIUERSI SALTA A ’NON’ 

; INCREMENTA PUNTAT INTERNO 

; ALLA SEQUENZA 

{TUTTI I SEGNI 

{DELLA SEQUENZA SONO STATI 

{CONTROLLATI? 

;SE 

;NO SALT AD 'ANCORA' 
{ALTRIMENTI SALTA A 'NOEXIT 

{AGGIORNA 
{PUNTATORE 
{ALL’INTERNO 
; DELLA 

{COLONNA ATTUALE E 
;LO MEMORIZZA IN ’Y* 

{SALTA A ’CONFR’ 

j INCREM PUNTAT COL ATTUALE 
; INIZIALIZZA PUNTAT 
{ALL’INTERNO DELLA SEQUENZA 
{DECREMENTA IL NUMERO DI 
{SEGNI DELLA SEQUENZA DA 
{CONTROLLARE 
; E SE NON FINITI 
{SALTA A 'START’ 


{PUNTA ALLA SEQUENZA 
; SUCCESS IUA 

{CONFRONTA CON NUMERO DI 
{SEQUENZE INSERITE 
; SE UGUALE 

; □ MINORE SALTA A ’NEXT ’ 
{ALTRIMENTI ESCE DA ROUTINE 


*»*#••*•••**•**••**•*•****•**••• 


62 



ne 

119 

150 

151 NOEXIT 
155 

153 

154 

155 

156 

157 NEXT 


159 

CLC 


159 

ADC 

NPRON 

130 

STA 

POINTER 

131 

BCC 

NXT 

135 

INC 

POINTER+1 

133 NXT 

JMP 

LOOP 


134 

135 


; SETTA FLAG DI RISULTATO 
; 1 “COLONNA DA ELIMINARE 
; ESCE DALLA ROUTINE 


; AGGI ORNA PUNTATORI ALLA 
; ZONA DI 

; MEMORIA IN CUI SONO 
; MEMORI ZZATI 
; LE SEQUENZE 
-, DI SEGNI DA ELIMINARE 
; SALTA A •LOOP 1 


* NON UA BENE -RITORNA- 


LDA #$01 
STA FLAG 
RTS 


LDA POINTER 


1 «a ••«««• ••«»•« »*•••*«* «a******************** •••••»••• 

S • ROUTINE PER INCREMENTARE IL COSTO DEL SISTEMA * 
3 

4 • 49739-49745 CONTENGONO LE CIFRE 'ASCII’ DEL PREZZO* 

5 • DI UNA COLONNA * 


6 * 49743-49751 CONTENGONO 

7 « 

B 

3 


10 CARRY 

- 

5 

11 PRCOL 

- 

49739 

15 COSTO 

- 

49743 

13 

ORG 

SC7EB 

2.4 •*••••• 



15 



16 

LDX 

#$09 

17 



1B 



19 

LDY 

#$04 

50 



51 

CLC 


55 START 

LDA 

PRCOL- 1 , Y 

53 

ADC 

COSTO- l.X 

S«f 

SEC 


55 

SBC 

#$30 

56 

CMP 

#$39 

57 

BEO 

MIN 

59 

BCC 

MIN 

59 

SEC 


30 

SBC 

#$0A 

31 

STA 

COSTO-l.X 

35 




IL COSTO TOTALE DEL SISTEMA* 


’«»«•** 

; FLAG DI RIPORTO 
; PREZZO DI UNA COLONNA 
•.COSTO TOTALE DEL SISTEMA 


; INIZI ALI ZZA CICLO PER 
; NOUE CIFRE DI COSTO 
; DEL SISTEMA 

; INIZIALIZZA CICLO PER 4 
; CIFRE DI PREZZO/COLONNA 
; AZZERA CARRY (RIPORTO! 

; CARICA CIFRA PREZZO/COL 
; ADDIZIONA AL COSTO TOTALE 
; E 

; SOTTRAE 49 ($30! 

; CONFR RISULTATO CON 57 
; SE UGUALE 

; 0 MINORE SALTA A ‘MIN’ 

; ALTRIMENTI 
; SOTTRAE 10 ($0A! 

; E MEMORIZZA CIFRA 
; DI COSTO DEL SISTEMA 


63 



33 

34 

35 DECR 
3B 

37 

30 

33 

40 

41 

42 SETT 

43 

44 MIN 

45 

46 

47 
40 

40 END 

50 

51 

52 

53 STI 

54 

55 GO 

56 

57 
50 
53 
60 
61 
62 

63 

64 

65 

66 
67 

60 EXIT 
63 

70 

71 ••••• 


LDA #$01 
STA CARRY 
□EX 
DEY 

BEO END 
LDA CARRY 
BNE SETT 
CLC 

JMP START 

35 START 

STA COSTO- 1,X 
LDA #$00 
STA CARRY 
JMP DECR 


E SETTA IL FLAG 
DI RIPORTO 
□ECREMENTA 
CICLI 

SE FINITI SALTA A ‘END’ 
CARICA FLAG DI RIPORTO 
SE SETTATO SALTA A ’SETT * 
ALTRIMENTI AZZERA CARRY 
E SALTA A 'START* 

SETTA CARRY E 

SALTA A START 

MEMORIZZA CIFRA 01 COSTO 

EO AZZERA 

IL FLAG DI RIPORTO 

POI SALTA A 'DECR* 


LDA CARRY 
BNE STI 
CLC 

BCC GO 
SEC 


CARICA FLAG DI RIPORTO 
SE SETTATO SALTA A 'STI' 
AZZERA CARRY E 
SALTA A 'GO' 

SETTA CARRY 


LDA 

ADC 

CMP 

BNE 

LDA 

STA 

LDA 

STA 

□EX 

BNE 

RTS 


COSTO -1 , X 

#$00 

#$3A 

EXIT 

#S01 

CARRY 

#$30 

COSTO- 1,X 
END 


CARICA CIFRA DI COSTO 
ADDIZIONA 0+EUENTUALE 
RIPORTO 

CONFRONTA CON 50 C$3AD 
SE NO SALTA A 'EXIT' 

SETTA FLAG 
DI RIPORTO 

CARICA LA CIFRA '0' C$30) 
MEMORIZZA IN CIFRA COSTO 
DECREMENTA CICLO 
SE NON FINITO SALTA A 'END 
ALTRIMENTI ESCE DA ROUTINE 


STA COSTO- 1 , X ; MEMORIZZA CIFRA COSTO 

RTS ;ED ESCE DA ROUTINE 


1 

2 * ROUTINE PER LA STAMPA DEL NUMERO DI COLONNE DEL 

3 * SISTEMA RIMASTE DA SUILUPPARE E CONTROLLARE 

4 *•»**•*•«•*•*•••••••••••••••••••••••••»**•••••**.< 

5 * QUESTA ROUTINE PRDUUEDE A STAMPARE SU UIDEO I 

6 * CODICI ASCII DEL NUM. DI COLONNE DA SUILUPPARE 

7 * CONTENUTI NELLE LOCAZIONI 43715-43722. 

0 * NON RICHIEDE PARAMETRI. 

g ««***«•«***»*»«•»»*•*••»•***«»«*•»••••*•»*****•*•• 

10 

11 COUNT - $FB 



1E 

CHROUT 


SFFDE 

ENTRY POI NT DELLA ROUTINE 


13 




DI STAMPA DEL SISTEMA 


14 




OPERATIUO DEL C-64 CS.O.) 


15 

PLOT 

- 

SFFF0 

ENTRY POINT ROUTINE S.O. 


1E 




PER FISSARE LE COORD. DEL 


17 




CURSORE 


ie 

COSUIL 

- 

49715 

CIFRE CASCII) DEL 


13 




NUMERO COLONNE DA SUILUPP. 


E0 






SI 


ORG 

51E66 



EE 






E3 






£4 






E5 


LDA 

#$01 

CONTATORE 1-3 PER 


EE 


STA 

COUNT 

STABILIRE IL PUNTO IN CUI 


E7 




STAMPARE IL PUNTINO 


£8 




SEPARATORE 


E3 






30 


LDY 

#$17 

FISSA COORD. INIZIALI 


31 


LDX 

#$05 

A X-E3 C$17) E 


3E 


CLC 


Y-5 C$05) 


33 


JSR 

PLOT 



34 






35 


LDX 

#$01 

INIZIALIZZA CICLO 


36 




PER OTTO CIFRE 


37 

LOAD 

LDA 

COSUIL-1 , X 

CARICA UN CIFRA 


38 


JSR 

CHROUT 

E LA STAMPA SU UIDEO 


33 


INX 


INCREMENTA CICLO 


40 


CPX 

#$03 

SUPERATE OTTO CIFRE? 


41 


BEQ 

FINE 

SE SI SALTA A 'FINE' 


4E 


INC 

COUNT 

INCREM CONTAT. PER POSIZ 


43 




PUNTINO SEPARATORE 


44 


LDA 

COUNT 



45 


CMP 

#$03 

HA RAGGIUNTO 3? 


46 


BNE 

LOAD 

SE NO SALTA A ’NO’ 


47 


LDA 

#$00 

ALTRIMENTI LO 


48 


STA 

COUNT 

RI AZZERA E 


43 


LDA 

#46 

QUINDI STAMPA IL 


50 


JSR 

CHROUT 

PUNTINO CASCII 46) 


51 


JMP 

LOAD 

SALTA A 'LOAD* 


5E 






53 

FINE 

RTS 


ESCE DALLA ROUTINE 


54 






55 



»*•«•*••«»***« 



1 * 
E • 

ROUTINE 

PER 

LA STAMPA DEL 

COSTO TOTALE DEL SISTEMA» 


4 • 

QUESTA 

ROUTINE PROUUEDE A 

STAMPARE SU UIDEO IL * 


5 * 

CONTENUTO CASCHI DELLE LOCAZIONI 43743-49751. • 


6 • 

NON RICHIEDE 

PARAMETRI. 

• 







65 



B 


9 COUNT 

- 

SFB 


10 CHROUT 

- 

SFFD2 

; ROUTINE S.O. DI STAMPA 

11 PLOT 

- 

SFFF0 

; ROUTINE S.O. PER 

12 



; FISSARE LE COORQ CURSORE 

13 COSTO 

14 

“ 

49743 

; INIZIO CIFRE COSTO CASCII) 

15 

ORO 

51312 


16 




17 ****••• 




1B 




19 

LDA 

#$00 

; AZZERA CONTATORE PER LA 

20 



; DETERMINAZ DELLA STAMPA 

21 

STA 

COUNT 

; DEL PUNTINO SEPARATORE 

22 




23 

LDY 

#$16 

; FISSA LE COORD DEL 

24 

LDX 

#$0B 

; CURSORE A: X-22 CS16) 

25 

CLC 


;E 

26 

JSR 

PLOT 

;Y-11 C$0B) 

27 




2B 

LDX 

#$01 

; INIZI AL IZZA CICLO PER 

29 



; NOUE CIFRE 

30 LOAD 

LDA 

COSTO- 1 , X 

; CARICA CIFRA 

31 

JSR 

CHROUT 

i STAMPA SU UIDEO 

32 

INX 


; INCREMENTA CICLO 

33 

CPX 

#$0A 

•«SUPERATA NONA CIFRA' 5 ’ 

34 

BEQ 

FINE 

; SE SI SALTA A ’ FINE ’ 

35 




36 

INC 

COUNT 

i INCREMENTA CONTATORE PER 

37 



; STAMPA PUNTINO SEPARATORE 

39 

LDA 

COUNT 


39 

CMP 

#$03 

; RABBI UNTO 37 

40 

BNE 

LOAD 

; SE NO SALTA A ’LOAD * 

41 

LDA 

#300 

; ALTRIMENTI 

42 

STA 

COUNT 

; LO AZZERA 

43 

LDA 

#46 

; E STAMPA 

44 

JSR 

CHROUT 

; IL PUNTINO CASCI I 46) 

45 

JMP 

LOAD 

; SALTA A 'LOAD’ 

46 



47 FINE 

4B 

49 •«*•**" 

RTS 


;ESCE DALLA ROUTINE 


1 

5 * ROUTINE PER LA STAMPA DEL NUMERO DI COLONNE 

3 * SELEZIONATE CGIOCABILI) 

4 * 


66 


5 * QUESTA ROUTINE STAMPA IL CONTENUTO C ASC II) DELLE 
S * LOCAZIONI 49753-49761 . 

7 • NON RICHIEDE PARAMETRI. 


s 


10 COUNT 

- 

SFB 


11 CHROUT 

- 

$FFD£ 

ROUTINE S.O. DI STAMPA 

12 PLOT 

- 

SFFF0 

ROUTINE S.O. PER DETERMIN . 

13 



DELLE COORDIN . CURSORE 

14 COLON 

— 

49754 

CIFRE NUM. COL. SELEZ . 

15 




16 

ORG 

5135B 


17 




10 *•.»••• 




19 




£0 

LDA 

#$01 

INIZI ALI ZZA CONTATORE PER 

£1 



DETERMINAZ . STAMPA 

2£ 

STA 

COUNT 

PUNTINO SEPARATORE 

£3 




£4 

LDY 

#$17 

FISSA COORD. CURSORE 

£5 

LDX 

#$08 

A X-£3 C$17) E Y-B C$08) 

£6 

CLC 



£7 

JSR 

PLOT 


£8 




£9 

LDX 

#$01 

INIZIO CICLO PER B CIFRE 

30 LOAD 

LDA 

COLON- 1 , X 

CARICA UNA CIFRA 

31 

JSR 

CHROUT 

E LA STAMPA SU UIDEO 

3£ 

INX 


INCREMENTA CICLO 

33 

CPX 

#$09 

HA SUPERATO LE B CIFRE? 

34 

BEO 

FINE 

SE SI SALTA A 'FINE’ 

35 

INC 

COUNT 

ALTRIMENTI INCREMENTA 

36 

LDA 

COUNT 

CONTAT. POSIZ. PUNTINO SEP 

37 

CMP 

#$03 

HA RAGGIUNTO 3? 

38 

BNE 

LOAD 

SE NO SALTA A ‘LOAD’ 

39 

LDA 

#$00 

ALTRIMENTI 

40 

STA 

COUNT 

LO AZZERA 

41 

LDA 

#46 

E STAMPA 

4£ 

JSR 

CHROUT 

IL PUNTINO CASCII 46) 

43 

JMP 

LOAD 

SALTA A ’LOAD ’ 

44 




45 FINE 

RTS 


; ESCE DALLA ROUTINE 

46 




47 **•*•**« 





1 

5 * ROUTINE PER INCREMENTARE IL NUMERO DI COLONNE • 

3 • SELEZIONATE. • 

4 

5 • 49753/49761 DEUONO CONTENERE CIN ASCII) IL NUMERO • 

B * DI COLONNE SELEZIONATE * 

7 


B 

9 

10 


COLSEL 


49753 


67 


11 

ORG 

51404 


12 




13 *«•*»**«" 




15 

LDX 

#$09 

INIZIALIZZA CICLO 

16 



PER NOUE CIFRE 

17 START 

LDA 

COLSEL-1 , X 

CARICA UNA CIFRA 

1B 

CLC 


ED 

13 

ADC 

#$01 

ADDIZIONA ’l’ 

20 

CMP 

#$3S 

CONFRONTA RISULTATO CON 9 

21 

BEQ 

EXIT 

SE UGUALE 

22 

BCC 

EXIT 

0 MINORE SALTA A ’EXIT’ 

23 




24 SUPERA 

LDA 

#$30 

ALTRIMENTI 

25 

STA 

COLSEL-1, X 

LA CIFRA DIUENTA ’0’ C$30) 

26 

DEX 


DECREMENTA CICLO E SE 

27 

BNE 

START 

NON FINITO SALTA A 'START' 

2B 

JMP 

EX1 

SALTA A ’EXl' 

29 




30 EXIT 

STA 

COLSEL-1, X 

; MEMORIZZA CIFRA 

31 EX1 

RTS 


;ESCE DALLA ROUTINE 


33 


1 *•«««»»»•*•*••»*»*»**•*»*•»*•*••*••»»»*•**«»*<»»*»»•* 

2 * ROUTINE PER LA MEMORIZZAZIONE CIN RAM) DI UNA 

3 * COLONNA 

4 MWM MWWW» MMMWWWW«tMtlWWWW«M«t«W 

5 * QUESTA ROUTINE MEMORIZZA LA COLONNA ATTUALE IN 

6 * MEMORIA RAM, CODIFICANDO I SEGNI IN MODO DA 

7 • REGISTRARNE QUATTRO IN OGNI BYTE 

B • QUESTO E’ POSSIBILE IN QUANTO SI HANNO TRE SEGNI 

3 • CON ALTRETTANTI CODICI C 1- ’ 1 ’ ; 2- ’X * ; 3-’2’ 

10 • OGNI COPPIA DI BITS PUÒ’ CONTENERE UN UALORE TRA 

11 * ZERO E TRE, PERTANTO IN UN BYTE CB BITS) PUÒ’ 

12 * CONTENERE FINO A 4 SEGNI. 

19 ************************ 

14 * 4SI 52 DEUE CONTENERE IL NUMERO DI PRONOSTICI 

15 * 491BB-431B1 DEUONO CONTENERE LA COLONNA ATTUALE 
1B * 49768-43769 QUESTI BYTES DEUONO CONTENERE LO 

17 • INDIRIZZO DI INIZIO DELLA ZONA RAM 

1B • UTILE PER LA MEMORIZZAZIONE DELLE 

19 • COLONNE SELEZIONATE 

20 • 49762-49763 SONO I PUNTATORI ALLA. ZONA UTILE PER 

21 * LA MEMORIZZAZIONE DELLA PROSSIMA 

22 * COLONNA. DEUONO ESSERE SETTATI SOLO 

23 * LA PRIMA UOLTA , CON I UALORI CONTENUTI 

24 • NEI BYTES 4S76B-4376S 

25 * 49764 E’ IL PUNTATORE ALLA COPPIA DI BITS ALLO 

26 * INTERNO DI UN BYTE PER MEMORIZZARE LE COLONN 

27 * DEUE ESSERE AZZERATO SOLO LA PRIMA UOLTA 


68 


23 • POI SARA’ QUESTA ROUTINE A CONTROLLARLO 

gg •*»*#»*••••*••••••*••#••*•**•«#»**»**••*••*••»•***•• 

30 * LA ROUTINE MEMORIZZA LA COLONNA E SUBITO DOPO 

31 * ESEGUE UN CONTROLLO SULLA MEMORIA LIBERA, E SE 

32 * QUESTA E’ ESAURITA, IL BYTE 43765 SARA’ POSTO A 1 

33 • QUINDI AL RITORNO DA QUESTA ROUT. OCCORRE TESTARNE 

34 * IL CONTENUTO PER SAPERE SE E' POSSIBILE CONTINUARE 

35 * LO SUILUPPO DEL SISTEMA. 

35 

37 


30 PROUU 

- 

49767 


33 NPRON 

- 

49152 

NUMERO PRONOSTICI 

40 COLATT 

- 

49166 

COLONNA ATTUALE 

41 PUNT 

— 

49762 

PUNTATORI ALL’INIZIO ZONA 

42 



UTILE PER MEMORI ZZ . COLONN 

43 BIT 

- 

49764 

PUNTATORE AI BITS 

44 TOPFLAG 

— 

49765 

FLAG DI ’OUT OF MEMORY’ 

45 POINTER 

- 

$FB 

PUNTATORE ALLA ZONA DI 

46 



MEMORI ZZZ . PROSSIMA COLONN 

47 




40 

ORG 

51433 


49 




50 *W«*#*<»*»I»*W**«**«*<»**<MH»*<»»*«*» 

51 




52 

LDX 

PUNT 

INIZI ALI ZZA PUNTATORI 

53 

LDY 

PUNTAI 

ALLA ZONA DI MEMDRIZZAZ . 

54 

STX 

POINTER 

DELLA PROSSIMA 

55 

STY 

POINTER+1 

COLONNA SELEZIONATA 

56 




57 

LDY 

#$00 


50 

LDX 

#$01 

CONTEGGIO DA 1 FINO 

59 



AL NUMERO DI PRONOSTICI 

60 START 

TXA 


SALUA REGISTRO ’X’ 

61 

PHA 


NELLO STACK DI SISTEMA 

62 

LDA 

COLATT-1 , X 

CARICA UN SEGND DALLA 

63 



COLONNA ATTUALE 

64 

LDX 

BIT 

CARICA IN ’X’ LA POSIZIONE 

65 



DELLA COPPIA DI BITS PER 

66 



LA MEMORIZZAZIONE 

67 

BEQ 

OK 

SE E ’ **0 SALTA A ’OK’ 

60 




69 MOLTIPL 

ASL 


ALTRIMENTI MOLTIPLICA 

70 

ASL 


IL CODICE DEL SEGNO PER 

71 

DEX 


PER IL PESO CHE ASSUME 

72 



ALL’INTERNO DEL BYTE 

73 

BNE 

MOLTIPL 

SE NON TERMINATO SALTA 

74 

STA 

PROUU 

E PONE RISULTATO IN * PROUU 

75 

LDA 

CPOINTER) , Y 

; RIPRENDE IL SEGNO 

76 

ORA 

PROUU 

; ESEGUE 

77 



; ’ OR ’ LOGICO CON ’ PROUU’ 

70 OK 

STA 

(POINTER) , y' 

; E MEMORIZZA NEL BYTE 

79 


; CORRENTE 



B0 

INC 

BIT 

B1 

LDA 

BIT 

82 



83 

CMP 

#S04 

B4 

BEO 

INCREM 

85 

BCS 

INCREM 

86 LOOP 

PLA 


B7 

TAX 


88 

INX 


B9 

CPX 

NPRlDN 

30 

BEO 

START 

31 

BCC 

START 

32 



93 

JMP 

EXIT 

94 



35 1NCREM 

LDA 

#S00 

96 

STA 

BIT 

97 



9B 



99 

INC 

POINTER 

100 

LDA 

POINTER 

101 

BNE 

LOOP 

102 

INC 

POINTER+1 

103 



104 

JMP 

LOOP 

105 



106 EXIT 

LDX 

POINTER 

107 

LDY 

POINTER+1 

108 

STX 

PUNT 

109 

STY 

PUNT+1 

110 



111 

CPY 

#>40300 

112 

BNE 

END 

113 

CPX 

#<40900 

114 

BCC 

END 

115 



116 



117 

LDA 

#S01 

118 

STA 

TOPFLAG 

119 END 

RTS 



120 


INCREMENTA POSIZIONE 
DEI BIT5 ALL’INTERNO 
DEL BYTE 
HA SUPERATO 3? 

SE UGUALE 
0 MAGGIORE SALTA 
RIPRENDE REGISTRO ’X’ 

DALLO STACK DI SISTEMA 
PASSA AL SEGNO SUCCESS IUO 
SUPERA IL NUM. DI PRONOST? 
SE UGUALE 
0 MINORE RIPRENDE 
DA 'START' 

ALTRIMENTI SALTA A ’EXIT’ 

AZZERA POSIZIONE BITS 
ALL’INTERNO DEL BYTE DI 
MEMORIZZAZIONE 

INCREMENTA 
PUNTATORE ALLA 
ZONA DI 

MEMORIZZAZIONE DELLE 
COLONNE SELEZIONATE 
E SALTA A 'LOOP* 

SALUA PUNTATORI ZONA 
MEMORIZZAZIONE IN 
PUNT 
E PUNT+1 

CONFRONTA CONTENUTO 
DI PUNT E 
DI PUNT+1 
CON 40300 
SE NON RAGGIUNTO 
SALTA A 'END’ 

ALTRIMENTI SETTA IL FLAG 
DI ’OUT OF MEMORY’ 

ESCE DALLA ROUTINE 


1 

2 * ROUTINE DI OTTIMIZZAZIONE 

3 •»**••*•••*••**••»•»•»»••*••••••••»***»•**»*«••*•• 

4 * 43752 DEUE CONTENERE IL GRADO DI OTTIMIZZAZIONE: 

5 • ©"NESSUNA 

6 • 1-RIDUZIONE CN-1 PUNTI D 

7 * 2“BI -RI SUZIONE CN-2 PUNTI] 

B • 49166-4S1B1 DEUONO CONTENERE LA COLONNA ATTUALE 
S * 49152 DEUE CONTENERE IL NUMERO DI PRONOSTICI 


70 



10 

* 49762/3 DEUONQ CONTENERE 

L’INDIRIZZO FINALE DELLA * 

11 

* 

ULTI HA COLONNA MEMORIZZATA * 

12 

* 4976B/9 DEVONO CONTENERE 

L’INDIRIZZO DI INIZIO * 

13 

* DELLA 

ZONA DI nENORIZZAZIONE DELLE COLONNE * 

14 





15 

* QUESTA ROUTINE CONFRONTA 

LA COLONNA ATTUALE CON * 

16 

* TUTTE 

QUELLE 

GIÀ* MEMORIZZATE E SE TRA QUESTE * 

17 

* NE TROVA UNA 

CHE DIFFERISCE DA QUELLA ATTUALE PER * 

1B 

• UN SOLO PUNTO CO DUE A SECONDA DEL GRADO DI * 

19 

* OTT III 122 AZIONE) , IN USCITA IL BYTE 49767 SARA* • 

£0 

• POSTO 

A '1 ’ , 

ALTRIMENTI SARA’ AZZERATO * 

21 





28 





23 

PUNTI 

- 

49771 


24 

BYTE 

- 

49770 


25 

OTTin 

•- 

49752 

LIVELLO DI OTTIMIZZAZIONE 

26 

COLATT 

- 

49166 

COLONNA ATTUALE 

27 

PUNT 

- 

49762 

PUNTATORI ALLA 20NA DI 

2B 




MEMORIZZAZIONE DELLA 

29 




PROSSIMA C COLONNA) 0 

30 




ULTIMA COLONNA+1 

31 

POINTER 

- 

$FB 


38 

OUT 

- 

49767 

FLAG DI RISULTATO 

33 

INIZIO 

- 

4976B 

PUNTATORI ALL’INIZIO ZONA 

34 




UTILE PER MEMORI ZZAZ 

35 




DELLE COLONNE SELEZIONATE 

3E 

BIT 

- 

$08 


37 

NPRON 

- 

49158 

NUMERO PRONOSTICI 

30 





39 


ORG 

SC951 


40 





41 





42 


LDA 

#0 

AZZERA PUNTATORE ALLE 

43 


STA 

BIT 

COPPIE DI BITS ALL’INTERNO 

44 




DEI BYTES DI MEMORI ZZAZ. 

45 


STA 

OUT 

E FLAG DI RISULTATO 

46 





47 


LDA 

INIZIO 

INIZI AL IZZA POINTER 

4B 


STA 

POINTER 

E POINTER+1 CON INDIRIZZO 

49 


LDA 

INIZIO+1 

DI INIZIO ZONA MEMORI ZZAZ . 

50 


STA 

POINTER+1 

COLONNE SELEZIONATE 

51 





52 

NEGO 

LDA 

#0 

AZZERA 

53 


STA 

PUNTI 

PUNTI 

54 


LDX 

#1 

INIZIO CICLO DA 1 FINO 

55 




A C NUMERO PRONOSTICI3 

56 

START 

TXA 


SALVA REGISTRO ’X’ 

57 


PHA 


NELLO STACK DI SISTEMA 

5B 


LDY 

#0 


59 


LDA 

CPOINTER) , Y 

; CARICA SEGNO DI UNA DELLE 

60 



; COLONNE GIÀ’ MEMORIZZATE 


61 


; AZZERA BITS NON RILEVANTI 


6E 

LDX 

BIT 

63 

AND 

TABELLA ,X 

64 



65 

CPX 

*0 

66 

BEO 

CONFR 

67 



68 LOOP 

LSR 


69 

LSR 


70 

DEX 


71 

BNE 

LOOP 

72 



73 CONFR 

STA 

BYTE 

74 

PLA 


75 

TAX 


76 

LDA 

COLATT-1 , X 

77 



7B 

CMP 

BYTE 

73 

BNE 

NOPUNT 

B0 

INC 

PUNTI 

B1 NOPUNT 

INC 

BIT 

B2 

LDA 

BIT 

83 

CMP 

#3 

B4 

BEO 

OKI 

85 

BCC 

OKI 

B6 

LDA 

#0 

87 

STA 

BIT 

BB 



83 



30 

INC 

POINTER 

31 

BNE 

OKI 

32 

INC 

POINTER-M 

33 



34 



35 OKI 

INX 


36 

CPX 

NPRON 

37 

BEQ 

START 

38 

BCC 

START 

33 



100 

LDA 

NPRON 

101 

SEC 


102 

SBC 

OTTIM 

103 

CMP 

PUNTI 

104 



105 

BEQ 

NO 

106 

BCC 

NO 

107 



10B 

LDA 

POINTER 

103 

CMP 

PUNT 

110 

BEQ 

FORSE 

111 E61 

JMP 

UEGO 

112 FORSE 

LDA 

POINTER+1 

113 

CMP 

PUNT+1 


; POSIZIONE COPPIA BITS-0? 
;SE SI SALTA A 'CONFR' 

; DECODIFICA 
; CODICE 
; DEL SEGNO 

; SE NON FINITO SALTA 

; MEMORIZZA SEGNO IN 'BYTE' 

; RIPRENDE REGISTRO 'X' 

; DALLO STACK DI SISTEMA 
; CARICA UN SEGNO DALLA 
; COLONNA ATTUALE 
; CONFRONTA CON ’ BYTE ’ 

; SE DIUERSI SALTA A 'NOPUNT 
; ALTRIM . INCREMENTA 'PUNTI ’ 
jINCREM. POSIZ COPPIA BITS 

;E’-3? 

; SE UGUALE 

; 0 MINORE SALTA A 'OKI* 

; ALTRIMENTI AZZERA PUNTAT . 

; COPPIE BITS NEI BYTES 
; DI MEMORI ZZAZ . COLONNE 

jINCREM. PUNTAT. ALLA 
.PROSSIMA COLONNA MEMORI ZZ. 

; DA CONFRONTARE CON 
; QUELLA ATTUALE 

; INCREMENTA CICLO 
; CONFR . CON NUM . PRONOSTICI 
; SE UGUALE 0 
; MINORE SALTA A 'START' 

; CARICA NUMERO PRONOSTICI 
; SOTTRAE 

; LIVELLO OTTIMIZZAZIONE 
; E CONFRONTA RISULATO 
; CON 'PUNTI* 

; SE UGUALE 0 
; MINORE SALTA A 'NO* 

; LE. COLONNE 
; MEMORIZZATE 
; SONO 

; TERMINATE? 

; SE NO. SALTA A 'WEGO' 

; ALTRIMENTI ESCE 
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114 

115 

116 


BNE 

RTS 

E61 

DALLA 

ROUTINE 

117 

NO 

LDA 

#1 

SETTA IL FLAG 

11B 

119 

150 


STA 

RTS 

OUT 

DI RISULTATO 

ED ESCE DALLA ROUTINE 

IBI 

155 

153 

154 

155 

TABELLA 

DFB 

3,15,48,195 

; TABELLA PER L ' ISOLAMENTO 
DI UNA COPPIA DI BITS DA 

UN BYTE CONTENENTE 4 SEGNI 
CB BITSD 




I sistemi 

a correzione d’errore 


Come trasferire su C/64 un metodo spesso 
adoperato per limitare il numero 
di colonne giocabili 


E’ 


facile farsi trarre in inganno 
dal titolo del paragrafo: "Correzione 
d'errore", infatti, non significa affatto 
che vengono corretti gli errori di pro- 
nostico del sistema: magari fosse 
possibile! 


E' possibile, ovviamente, indicare 
anche pronostici doppi, oppure fissi 

1..JC 

X 

1 


Supponiamo di essere costretti a 
dare un solo risultato per ogni incon- 
tro presente in schedina: darete cer- 
tamente il risultato che. secondo voi 
i il più probabile, e lascerete in se- 
condo piano gli altri due risultati me- 
no attendibili. 

L’insieme di questi pronostici for- 
mano quella che, in seguito, chiame- 
remo "colonna-base" e che contiene, 
posti dopo i puntini i pronostici che 
hanno via via una minore probabili- 
tà di uscita. 


L.JC2 

X 


1 

1..JC 


Avendo la possibilità, in seguito, di 
integrare tale sistema-base, inserirete 


delle varianti (doppie o triple). 

L’insieme della colonna-base e dei 
segni alternativi (varianti, o meglio 
“elenco delle correzioni"), forma il 
sistema-base. 

Il sistema base risultante sarà quindi 
il seguente: 

IX 

X 

1 

1X2 

X 

2 

1 

1 

IX 

X 
1 

12X 

X2 
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PER UTILI Z7ARE ntlKRETTAMt NIE 
QUESTO PROGRAMMO, E' NECESSARIO CHE, 
NEL DIGITARE LE U/iRIANTI, 

IL PRIMO SEGNO SIA 


La correzione d'errore si basa su u- 
na fondamentale osservazione di ca- 
rattere statistico e probabilistico: 
quasi certamente, in caso di vincita, 
alcuni risultati saranno stati ottenuti 
grazie ai segui della colonna-base, 
altri saranno totalizzati con i segni 
alternativi (correzioni o. se preferite, 
minore probabilità di realizzazione). 

Con la correzione d'errore è possi- 
bile eliminare alcune colonne del si- 
stema considerando solo quelle che 
realizzano un determinato numero 
di correzioni sulla colonna-base, sta- 
bilito all'inizio dal giocatore. 

Se sviluppiamo integralmente il se- 
guente sistema.. 


1X2 

1 

X 

1 

IX 

1 

X 

X 

1 

X2 

1 

1 

2 

...otteniamo le seguenti colonne: 

a) 11X111XX1X112 

b) 11X1UXX12112 


c) ! 1X1 XI XX !X11 2 

d) IIXIXIXXI21I2 
t) XIXI1IXXIXI12 
fl X1XIIIXXI21I2 

g) XIXIXIXX1XII2 

h) X1X1X1XX12I12 

i) 21XII1XXIXI12 

l) 21X1 11 XXI 21 12 

m) 2IXIX1XXIX1I2 

n) 21X1X1 XXI 21 12 

Stabiliamo ora un numero di corre- 
zioni. vale a dire di punti realizzabili 
con le varianti anziché con la co- 
lonna-base: imponiamo, ad esempio, 
due correzioni. 

Questo vuol dire che. su 13 prono- 
stici. le colonne selezionate saranno 
mite quelle che appartengono al si- 
stema e che presentano due sole dif- 
ferenze rispetto alla colonna-base 
che. lo ricordiamo, i la seguente: 

11X 111 XXI XI 12 


Le colonne del sistema precedente 
che rispecchiano queste caratteristi- 
che sono: 


d) 1 1X1X1 XXI 21 12 
J)X1XU1XX12U2 
g) X1X1X1XXIX112 

l) 21X11 IXX121 12 

m) 21XIX1XX1X112 


Riepilogando: sappiamo con buo- 
na approssimazione che quasi sicu- 


e* 


ti 


CONFERMI <S7H>?H 


rumente, nel caso di vincita, non rea- 
lizzeremo tutti i punti con la co- 
lonna-base (sarebbe fortuna sfaccia- 
ta!): pertanto, rispetto a quest'ultima. 
commetteremo quasi certamente (pur- 
troppo) alcuni errori di previsione. 

Il punto è che ci é impossibile sape- 
re il pronostico in cui tali errori si ve- 
rificheranno. Compito del program- 
ma proposto CTot-concctor'') è pro- 
prio quello di selezionare tutte le co- 
lonne del sistema che contengono un 
determinato numero di errori risal- 
to alla colonna-base (purché previsti 
dalle varianti), in qualsiasi posizione 
essi si trovino. 

E' chiaro che un lavoro di questo ri- 
pa eseguito manualmente, é molto 
laborioso, lento, e per giunte scarsa- 
mente affidabile. 

Ed é proprio in questi casi che ci si 
rende conto di quanto possa essere u- 
tile un computer capite spesso di 
sentirsi dire "ma in fondo a che cosa 
serve un computer? Che cosa può fa- 
re che l'uomo non sia in grado di 
fare?". 

Tornando comunque all'argomen- 
to portante del paragrafo, è bene fare 
una precisazione: con i sistemi a cor- 
rezione d’errore si tende a ridurre il 
numero di colonne giocabili di un si- 
stema. T\ittavia, a differenza dei siste- 
mi ridotti non tendono a vincite di 
seconda categoria, ma mirano a 
quelle di prima categorìa. 

Inoltre, mirando a vincite di prima 
categoria, se con i sistemi a correzio- 
ne d’errore si commette un errore in 
più (od un errore in meno) rispetto 
alle correzioni stabilite, realizzeremo 
comunque una o più vincite di se- 
conda categoria. 

Quest'ultima possibilità svanisce 
quanda con il programma "Tot Cor- 
rector” oltre alla correzione d'errore 
si richiede anche la riduzione. 

Con tele opzione il calcolatore sele- 
ziona le colonne in base alla corre- 
zione d'errore e. in seguito, sulle co- 
lonne risultanti esegue la riduzione: 
in questo modo si riduce ulterior- 
mente il numero di colonne da gioca- 
re ma. per effetto della riduzione, si 
può pretendere di mirare solo a vin- 
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ette di seconda categoria anziché di 
prima (come sarebbe invece ovvio a- 
spettarsi da un normale sistema a 
correzione d’errore). 

Un'altra precisazione da fare è che 
se ti vuole sviluppare un sistema a 
correzione d’errore, correggendo da 0 
ad un numero di errori pari alla 
quantità di varianti inserite, otterre- 
mo tune le colonne del sistema, cioè 
lo sviluppo integrale. 

Nel caso opposto al precedente, 
non correggendo cioè alcun errore, 
non avremo colonne giocabili se non 
quella base. 

Per dare un’idea di quanto si può 
risparmiare con i sistemi a correzio- 
ne d'errore, riportiamo qui di seguito 
un breve programma che indica il 
numero di colonne giocabili. dati il 
numero di varianti doppie e triple, o- 
vunque disposte: 


Dopo il RUN, il programma chiede 
il numero di varianti doppie e triple, 
ed in seguito stampa sul video il nu- 
mero di errori corretti e le colonne 
necessarie per quella correzione. 

Supponiamo di voler determinare 
il numero delle colonne occorrenti 
per correggere 1 -2-3 errori in un siste- 
ma da tre doppie e quattro triple; il 


programma produrrà il seguente 
output: 


Sii 

colonne 
gioca b. 

0 

1 

1 

11 

2 

51 

3 

129 

4 

192 

5 

168 

6 

80 

7 

16 


quindi per correggere un solo erro- 
re. due e tre errori, occorreranno... 

11 +51 +J29- 191 


.colonne. 


10 REM CALCOLO COLONNE DI 
20 REM SISTEMI A 
30 REM CORREZIONE D'ERRORE 
40 REM 

50 REM BY: ANTONIO PASTORELLI 
60 : 

100 REM •** INPUT NUMERO UARIANTI *** 

10B PRINT CHPSCIH' 7 ^ : : INPUT "NUMERO UARIANTI DOPPIE”:ND 

110 IF ND<0 OR ND> 16 THEN 100 

120 INPUT "NUMERO UARIANTI TRIPLE": NT 

130 IF NT<0 OR NT> 16 THEN PRINT CHRSC 146) GOTO 120 

140 IF NT+ND>16 OR NT+ND-0 THEN RUN 

145 GOSUB 30000 

150 FOR J-0 TO NT+ND: FI“0: FOR K-0 TO J 

160 A-NT : AK-K : GOSUB 20000 : Al-TG : A-ND: AK-J-K : GOSUB 20000 : A2-TG 

200 FI-FI+INTC2TK3*A1*A2:NEXT K: PRINT J,FI:NEXT J 

210 PRINT: PRINT: PRINT "ALTRE ELABORAZIONI?" : POKE 19B.0 

220 BET AS : IF A$-”S” THEN RUN 

230 IF A$-”N" THEN PRINT CHRSC 1473 :: END 

24Q GOTO 220 

9999 END 

10000 CK“1 : FOR H-l TO □ 

10010 CK-CK*H:NEXT H: RETURN 

20000 Q-A: GOSUB 10000 : Ql-CK : Q-AK: GOSUB 10000 : Q2-P< 

20010 IF AK> A THEN TG-0: RETURN 

20020 D-A-AK: GOSUB 10000: Q3-CK: TG-INTCQ1/ CQ2*Q3) 3 : RETURN 
29990 REM STAMPA RISULTATI 

29999 : 

30000 PRINT CHRSC 147 3 "ERRORI COLONNE" 

30010 PRINT "CORRETI GIOCAB." 

30020 PRINT ” RETURN 
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Come usare 
Tot Corre ctor 

Passiamo ora ad analizzare il fun- 
zionamento del programma che ela- 
bora i sistemi a correzione d'errore. 

Anch'esso è costituito da due parti: 
la prima ("Loader Corrector”) con- 
tiene le istruzioni per il caricamento 
in memoria delle routine in l.m. e 
provvede a salvarle su disco o 
nastro. 

La seconda parte (“Tot Corrector") 
permette di introdurre i parametri 
necessari allo sviluppo e di comuni- 
care con le routine l.m. che operano 
ia selezione. 

Per utilizzare correttamente il pro- 
gramma dovrete innanzitutto carica- 
re il primo listata e fame una copia 
di sicurezza su supporto magnetico. 

Successivamente darete il RUN e il 
calcolatore chiederà la periferica u- 
sata su cui registrare le routine l.m. 
alle quali assegnerà automaticamen- 
te il nome “Routine correct". 

Non preoccupatevi se, dopo il sal- 
vataggio. appare sullo schermo un 
“Syntas cTror..": è dovuto all'altera- 
zione dei puntatori di inizio e fine 
Basic, necessaria per registrare le 
routine. Per ristabilire le condizioni 
normali di funzionamento spegnete 
e riaccendete il computer. 

A questo punto il programma che 
avete digitato ha esaurito il suo com- 
pito ma prima di procedere è consi- 
gliabile accertarsi del corretto fun- 
zionamento del programma prin- 
cipale. 

Caricate il secondo listato (Tot 
Corrector”), e salvatelo su supporto 
magnetico. 


LOAD ", Routine coma AI (disco) o 
LO AD Routine coma".!.! (nastro). 

2) dare NEW seguito da Return. 

3) Caricare il programma principa- 
le al quale, supponiama avete asse- 
gnato in precedenza il fantasioso no- 
me di “Programma": 

LOAD "Programma ci (disco) o 
LOAD "Programma".l.I (nastro). 

4) digiure RUN seguito da Re- 


Una volta attivato, il programma 
chiede, dopo l'apparizione di un bre- 
ve messaggio, il numero di pronostici 
sul quale si intende lavorare. 

Digitate un numero compreso tra 
12 e 16. a seconda del concorso per il 
quale preparare il sistema. 

In seguito sarete inviuti a digiure 0 
prezzo attuale per la giocala di una 
colonna: questo può variare da 500 a 
9999. in previsione di eventuali (cata- 
strofici) aumenti futuri. 

Dopo la comparsa delia schermau 
iniziale, con la griglia numerau si- 
mile a quella presente sulle schedine, 
dovrete digiure il sistema-base. 

PresUte molto attenzione nel com- 
piere questa operazione perchè il 
sistema-base si compone, come detto 
sopra, da una colonna base (formato 
dai segni con maggiore probabilità di 
uscito). e da un elenco di corre- 
zioni (varianti). 

Questo significa che è di viule im- 
portanza fare attenzione affinchè, 
nel caso di varianti, si digiti prima il 
segno ritenuto più probabile, poi gli 
altri (per i successivi non importa 
l'ordine). 


Se ad esempio dobbiamo assegnare 
un pronostico alla partita Juventus - 
Napoli, c secondo noi le probabilità 
dei segni sono le seguenti- 


Segno "!’: 35% 
Segno "X~: 40% 
Segno "2": 25% 


...allora dovremo inserire NECES- 
SARIAMENTE dapprima il segno 
“X". poi gli altri due (sia nella forma 
12 che 21): per questi ultimi, infatti, 
l'ordine non influenza i risultati. 

Terminato l'inserimento del si- 
stema-base. verrà richiesto la conferà 
ma di quanto digitalo. 

Premendo il Usto "N" potrete cor- 
reggere eventuali errori di battitura, 
se presenti, mentre i pronostici digi- 
uti esattamente potrannoessere con- 
fermati con la semplice pressione del 
tasto Return. 

Quando siete sicuri che il sistema- 
bare è stato digiuto correttamente, 
premete "S". 

A questo punto delle operazioni 
appare una griglia contenente i nu- 
meri da zero al numero di pronostici 
indicato alllnizio. 

Tali valori rappresentano le corre- 
zioni da effettuare sitila colonna- 
base: con i tosti cursore si muove la 
freccia posto sotto la griglia, che indi- 
ca ti numero di correzioni corrente- 
mente selezionato. 

Premendo il tasto Return, il nume- 
ro di correzioni indicato dalla freccia 
viene scritto in campo inverso per in- 
dicare l'avvenuta selezione. 

Per annullare una selezione effet- 
tuata per errore, basta premere nuo- 
vamete Return: il numero di corre- 
zioni tornerà in campo normale. 

Una volto decise le correzioni da o- 
pcrare, premete il tasto di freccia a 
sinistra. 

Ecco che. dopo molte peripezie, sie- 
te giunti nella “stanza dei bottoni”. 

Infatti sullo schermo apparirà un 
menu che permette di decidere come 
elaborare (1 sistema. 


Da questo momento in poi. ogni 
qualvolta intendete utilizzare il 
software dovrete eseguire la sequen- 
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1) Caricare le routine con: 


lì ™u 
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[COSTO DI JL COLONNA | 0500 ) 


[ COLONNE 

DA SOILUPPARE 

| 0O . 0O0 . 026) 


[COLONNE 

SELEZIONATE 

| 00 . 000 . 0-48 ] 


[COSTO DEL SISTEMA 

000 . 02-4. 000 ] 


r.i*< m u n a 01 * i ** m; i miinm m 

CUlLLLttUtllid PER INTERROMPERE) 


Potete scegliere tra l'elaborazione 
di un normale sistema a correzione 
d’errore (opzione 3). o un sistema a 
correzione d'errore ridotto (opzione 

I) o biridotto (opzione 2). 

Arrivati a questo punto avete passa- 
to tutti i necessari parametri, e può 
quindi iniziare la tanto attesa rase di 
selezione delle colonne 

Sullo schermo avrete la possibilità 
di controllare l'andamento dell'ela- 
borazione: troverete infatti {Indica- 
zione del prezzo di una colonna, del 
numero di colonne rimaste da svi- 
luppare. del numero di colonne sele- 
zionate e del costo totale del sistema, 
a mano a mano che vengono selezio- 
nate le colonne. 

In base ai dati visualizzati potrete 
decidere in ogni momento di inter- 
rompere l'esecuzione con la pressio- 
ne del tasto Run/Stop; per analizzar- 
li meglio potete anche sospendere 
momentaneamente l'esecuzione del 
programma con Shift o Shift-Lock. 

Dalla fase di sviluppo delle colon- 
ne il programma può uscire in tre 
circostanze: 

1) per esaurimento del sistema; tut- 
te le colonne sono state controllate. 

2) per pressione del tasto Run/Stop: 
non tutte le colonne del sistema sono 
state controllate, è possibile comun- 
que operare sulle colonne fino a quel 
momento selezionate. 

3) per superamento delle capaciti 
di memoria del calcolatore: anche in 
questo caso le colonne fino a quel 
momento selezionate non vanno 
perse, ma possono essere trattate co- 
me se l’elaborazione si fosse interrot- 
ta per esaurimento del sistema. 

Se lo sviluppo si arresta per i motivi 
citati ai punti 2 e 3. sul video verrà se- 


gnalato, in campo inverso, il mo- 
tivo dell’interruzione. 

Terminato lo sviluppa appare sul- 
lo schermo un menu che comprende 
la stampa su video, la stampa su car- 
ta. la registrazione delle colonne su 
supporto magnetico (nastro o disco) 
e il Restart per ulteriori elaborazioni 
sullo stesso sistema oppure su altri da 
inserire ex-novo. 

Vediamo una per una le varie 
opzioni 

Premendo “I" si registrano le co- 
lonne selezionate su supposto ma- 
gnetico indicando il nome da asse- 
gnare al file: in seguito dovrete indi- 
care il supporto usato: “N” per il na- 
stro e “D" per il disco. 

Terminato il salvataggio delle co- 
lonne. ritornerete nel menu corrente 
e. volenda potrete trattarie ulte- 
riormente. 

Per ottenere la stampa su video ba- 
sterà premere “2" che consente la vi- 
sualizzazione delle colonne, in oriz- 
zontale. 

Durante la stampa avrete la possi- 
bilità di sospendere momentanea- 
mente l’esecuzione con un tasto 
qualsiasi e riprenderla allo stesso 
moda 

Premendo invece il tasto di freccia 
a sinistra interromperete la stampa e 
tornerete al menu. 


L'ultima opzione t il restart; pre- 
mendo "4" verrà chiesto se trattare lo 
stesso sistema CS~) o inserirne uno 
nuovo (“N"). 

Premendo "N" si ricomincia da ca- 
po l'inserimento dei parametri visti 
precedentemente. 

Con il tasto ~S“ si evita di riscrivere 
il sistema, pertanto si dovranno inse- 
rire solo le correzioni desiderate. 


Un esempio d’uso 

Per meglio comprendere il funzio- 
namento del programma ceco una e- 
laborazione "guidata": basterà con- 
trollare il risultato fornito dal vostro 
programma con quello che segue; in 
caso didiscordanza dovrete effettua- 
re alcuni controlli. 

Caricate il software, come sopra de- 
scritta date il RllN c alla richiesta 
del sistema-base (di 13 pronastici), 
digitate il seguente: 

1 

IX 

l 

X2 

1 

1X2 

X 


IX 

1 

1X2 

2 

e battete “S" alla richiesta di 
conferma. 

All’apparire della grìglia per la se- 
lezione delle correzioni, portate, con 
i tasti cursore, la freccia sotto il nu- 
mero "1" c premete Return, poi por- 
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tatela sotto il numero ~2~ e premete 
Return, infine la sposterete fino ad 
arrivare sotto il numero “5“ e preme- 
rete ancora una volta Rclum: preme- 
te infine il usto di freccia a si- 
nistra. 

Alla richiesta di conferma control- 
late che sui video vi siano solo i nu- 
me ri” I" “2“ e “5" scritti in campo in- 
verso; in caso contrario digitate ’N"e 
correggete. 

Quando tutto è a posto digitate “S" 
e. dopo qualche secondo, apparsa la 
schermata per la selezione del livello 
di ottimizzazione, premete "2” (bi- 
riduzione). 

AI termine dell'elaborazione, il 
programma dovrebbe indicare di a- 
ver selezionato 4 colonne; se tale sarà 
il risultato fornito dal vostro pro- 
gramma allora esso funziona corret- 
tamente e potrete da quel momento 
in poi utilizzarlo tranquillamente. 

Per un ulteriore riprova del funzio- 
namento del software, potete chiede- 
re la stampa su video delle colonne 
selezionate e confrontarle con quelle 
indicate qui di seguilo: 

1) 111X11X1111X2 

2) U1X1XX11X112 

3) 111212X111112 

4) IX12IXX1 1X1X2 

Ancora una volta la logica ha fatto 
la sua parte e deve quindi lasciare 
che anche la fortuna faccia altret- 
tanto... 


Per i più esperti 

Il formato del file di dati è identico 
a quello dei file di Tot- 16 Plus al qua- 
le paragrafo rinviamo il lettore perle 
necessarie informazioni 
Per quanto riguarda eventuali mo- 
difiche che facciano variare la lun- 
ghezza del programma le regole da 
rispettare sono le seguenti; 

• modificare nella linea 500 il valore 

dei puntatori di fine memoria Basic, 
e mettere gli stessi valori in 49762 / 
49763 e 49768 49769 nella riga 

15500. 

• la capaciti di immagazzinamento 
delle colonne selezionate varia in 
funzione dei numero dei pronostici 
secondo la seguente tabella: 

su 12 pronostici ; fino a 9400 
su 13 pronostici ; fino a 8677 
su 14 pronostici : fino a 8058 
su 15 pronostici : fino a 7520 
su 16 pronostici : fino a 7050 

La velocita di controllo delle colon- 
ne del sistema-base arriva fino a 81 
colonne per seconda 
Anche in questo caso, come per i si- 
stemi conduionati (vedi paragrafo), 
è possiblc dividere il sistema in più 
parti, da elaborare separatamente, 
con gli stessi parametri di corre- 
zione. 

E' probabile, comunque, che nel 
caso si richieda anche la riduzione o 
la biriduzione, la somma delle colon- 


ne giocatali dei sottosistemi sia di al- 
cune colonne superiore a quella otte- 
nibile sviluppando il sistema origi- 
nario in un'unica soluzione. 

11 motivo risiede nel fatto che. nello 
sviluppare la seconda frazione di si- 
stema. il calcolatore seleziona le co- 
lonne necessarie per garantire alme- 
no una vincita di seconda categoria 
(o terza nel caso di bi-riduzione), 
qualunque sia la colonna vincente 
del sistema. 

Tuttavia, cosi facendo, non è in gra- 
do di sapere se una colonna era già 
coperta per il 12 da un’altra apparte- 
nente alla prima selezione. 

In pratica, se tra le colonne della 
prima frazione di sistema era presen- 
te la colonna.. 

1111111111111 

-mentre nella seconda elaborazione 
è presente la colonna.. 

Xllllllllllll 

-questuiti ma viene giocata ugual- 
mente in quanto il computer, non a- 
vendo in memoria la prima colon na. 
non è in grado di sapere che con 
quella si realizzava un 12, anche se la 
colonna vincente fosse risultata la 
seconda. 

In ogni caso la differenza in termi- 
ni di colonne derivanti da una elabo- 
razione unica ed una frazionata, è 
trascurabile. 


10 REM R0UTINE9 L/M 
80 REM DI TOT-CORRECTOR 
30 : 

40 REM BYs ANTON ID PASTORELLI 

41 POKE 53800,0: POKE 538B1 , 0 : PRINT CHRSC5) 

48 PRINT CHR*(147)CHRSC1B)" CARICATORE ROUTINES TOT CORRECTOR 
44 PRINT CKRS(17)CHRS(17)CHRS( 17) "ATTENDERE : " j 
50 CK-0:LC-43999:Tl-740:FOR J-l TO 37 

80 FOR K-l TO 80 : READ Al: A1S-LEFTSC AS, 1) : A8S-RISHT0CAS , 1) 

68 IF All> "9“ THEN A1-ASCCA1*)-55:G0T0 B6 
84 A1-UALCA1S) 

86 IF A8*> "9" THEN A8-ASC C A8* ) -55 : GOTO 73 
71 A8-UALCA8*) 

73 A-A1«16«-A8: CK-CK-»-A: LC-LC+1 : TL-TL-1 : PRINT’ a UN WWr T TftRr 1 ai ■ 

74 PRINT CHRS(145)TABC10)TL 
80 POKE LC.A 

90 NEXTK 

100 READ A: IF A<>CK THEN ISO 
110 CK-0:NEXT J:B0T0 800 

180 PRINTCHR0C 147) “ERRORE DI TRASCRIZIONE DATI IN*i 
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130 PRINT PEEK(633*eSB*PEEKC64)“ll.":Dn 
B00 POR K-l TD 800: NEXT 

205 PRINT CHRSC 147) -REGISTRI SU MASTRO □ aMISC07* 

206 GEI AS:IF AS-"N* THEN DU-l:GOTO 210 

207 1F AS--D" THEN DU-B:GOTO 210 

208 GOTO 206 

210 P0KE43 . 80 : P0KE44 . 195 : P0KE45 . 52 : POKE46 . 198 : SAUE "RCJUT I NE CORRECT ",8.1 


220 END 

1000 OATAAE, 1E.C0, 

1001 OATAC9.05.F0. 

1002 DATA90 , 00 , CO , 

1003 DATAF0, E8.4C, 

1004 DATABD.0D.C0, 

1005 DATAC9.30.F0, 

1006 DATAFB, A0 , 17, 

1007 DATAF0.14.E6, 

1008 DATAD3,C3,60. 

1009 DATA1C, 90 , 1A, 

1010 DATA04.1B.4C, 

1011 DATA02, 00,03, 

1012 DATAAS, 30 , 90, 

1013 DATA0B, 18,20, 

1014 DATAAS, FB, C9, 

1015 DATA09, BD , 58 , 

1016 DATAEC.4C.97, 

1017 DATAAS, 01, BD, 

1018 DATAEO.A9.00. 

1019 DATACS , AD , 68 , 

1020 DATAA0 , 00 , B1 , 

1021 DATAC2 , 68 , AA , 

1022 DATAFB, 0C, 90, 

1023 DATA90 , C0 , AD , 

1024 DATAC2.F0.03, 

1025 DATA03.0C, 30, 

1026 OATABD.0D.C0, 

1027 DATAC2.91.FB, 

1028 DATAC0.F0.D3, 
1023 DATAFC.4C.7B, 

1030 DATA90.05.A9, 

1031 DATA2F.C0.F0, 

1032 DATAC6, AD, 58, 

1033 DATAD0.03.4C, 

1034 DATA48.CS, 20. 

1035 DATAAS, 08, BD, 

1036 DATAD0 , 06 , AS , 


BD , 1E , C0 , C9 , 04 , F0 , 

29 , C9 , 06 . F0 , 34 , BD , 
40 , 50 , 03 , 9D , 00 . 00 , 
7E,C3.BD,0D,C0,C9. 
CS , 02 , D0 , 03 , 4C , 9S , 

04 , DE , 33 , C2 , 60 , A9 , 
A2, 05, 18 , 20, F0, FF, 
FB , A5 , FB , C9 , 03 , D0 , 
A2.09, A0,04,1B,B3, 
3B,E9,0A,3D.4E.C2. 
FB , C3 , 38 , 4C , F8 , C3 , 
18,90,01, 38, BD r 4E, 
4E.C2,CA,D0.E3,60, 
F0 , FF , A2 , 01 , BD , 4E , 
03. 00. ED. A9, 00,85, 
02,18,69, 01. 09,39. 
C4 , SD , 58 , C2 , 60 , A3 , 
59.C2.20.D2.FF.EB, 
85 , FB , A3 , 2E , 20 , D2 , 
C2.85.FB.AD.69.C2, 
FB.A6, 02,30,44,05, 
BD , 0D , 00 , OD , 6A , 02 , 
0A , A3 , 00 , 85 , 02 , E6 , 
00. 00, 38. EO, 58, 02, 
4C.D7,C4.A5,FC.CD. 

00, AE. 62, 02. AC, 63, 
AE.B4.C2.F0.0D,0A, 
EE. 64, 02, AD, 64. 02. 

30, DI, 40, 98, 05, A3. 

05, A6.FB, A4.FC.BE, 

01 , BD . 65 , 02 , 60 , A9 , 
03 , EE , 05 , 00 , OA , D0 , 

02, F0 , 1B , AD , 62 , 02 . 
FI. 05, 20,06, 04. AD, 
98,04,20,40,04.20, 
32, 02, 09, 30. D0, 04, 
01. 80, 60, 02, 60, AD, 


0E,B0,04,CA.D0,F4, 
0D, 00. 18. 63, 01, 09. 
40 , 5F , 03 , BD , 0D , 00 , 
01 , D0 , 05 , A9 , 03 , 40 , 
03, A3. 02, 40, 78, 03, 
39,9D,33,O2,OA,10, 
A2, 01 , BD , 32, 02, 20, 

ED, A3, 00, 85, FB, A3, 
4A , 02 ■ 7D , 4E ,02,38, 
A3 , 01 , B5 , 02 , OA , 8B , 
9D , 4E , 02 , A9 , 00 , 85 , 

02 .59.00. 09 . 3A , 00 , 
9D.4E, 02, 60 , A3, 00 , 
02 , 20 , D2 , FF , EB , E0 , 
FB , A3 , BE , 20 , D2 . FF , 
F0 , 0D , 90 , 0B , AS , 30 , 

01.85, FB.A0, 17, A2, 

EO. 09.F0.14.E6.FB, 

FF , 40 , A6 , 04 , 60 , A9 , 
B5 FC,A9,00.8D,6B, 
Eli 0O.F0.05.4A.4A, 

DO , 03 , EE , 6B , 02 , E6 , 
FB. DO , 02, E6, FC, EB, 
CO.6B.C2.F0, 14,90, 

63 . 02 , DO , F6 , 60 , A9 , 

02 . 86 , TB . 84 , FC , A0 , 
0A.CA.D0.FB. 80,67, 
C3,04,F0,0F,B0.0D, 
00 , BD , 64 , 02 , E6 , FB , 

62.02.80.63.02.00. 
00 , BD , 05 , 00 , AE , 00 , 
F2 , AE , 05 , C0 , BD , 87 , 
OD , 68 , 02 , D0 , 0B , AD , 

67 . 02 , DO , 0F , 20 , 7B , 
AF. 03. 20. 05. 03, AD, 
OA , DO , F6 , 60 , 20 , 50 , 
BD,02,C3.O1.F0,F9, 


60. 09. 04, F0. 20, 2665 
04 , D0 . 08, A9 , 01,2101 
18,69,01,09,03,2181 
7E, 03. 40, 76. 03, 2636 
A2 , 07 , BD , 33 , 02 , 2396 
ED , 60 , A3 , 01 , 85 , 253B 
D2, FF, EB, E0,09, 2710 
2E , 20 , D2 , FF , 40 , 3147 
E9 , 30 , OS , 39 , F0 , 2546 
F0 , 16 , A5 , 02 , D0 , 2206 

02.40. 11. 04, A5, 2309 
0D, A3, 01, 85, 02, 1789 
85, FB, A0, 16, A2 , 2801 
0A , F0 , 14 , E6 , FB , 2B90 
4C.5B.C4.60.A2.2351 
9D , 58 , 02 , CA , 00 , 2342 

08 . 18 . 20 , F0 , FF , 2652 
AS, FB , 09, 03 , D0 , 3166 

00. 85.02, BD , 67 , 2584 
02. A2, 01, SA. 48, 2830 
CA , D0 , FB , 80 , 6A , 2607 
02. AS. 02, 09. 03. 2720 
EC , 00 , 00 , F0 , 02 . 2377 
12 , A5 , FB , CD , 62 , 2923 

01, BD. 67. 02, 60. 3093 
00. AB, 01. BA, 48. 2488 

02 , B1 , FB , 0D , 67 , 2778 
68 , AA ,' E6 , EC , 00 , 2980 
A5 , FB , D0 , EB , E6 , 3592 
3F , D0 , 03 , E0 , 04 , 3336 

00 , BD , 0D , 00 , DD , 2339 

01, D0, 03, 40, 00, 2744 
63,02,00,69,02,3077 

04. 20, F3, 03, 20. 2697 
65, 02, F0, 01. 60, 2585 

03, AS.CS, 09, 3F, 2749 
40, B0. 05, 01, 08, 2388 


100 REM SISTEMI 

150 REM A CORREZIONE D 1 ERRORE 
250 REM BY: ANTONIO PASTORELLI 
450 : 

500 POKE 808,225: P0KES5 , 48 : P0KE56 ,117: CLR : REM FISSA TOP MEMORIA BASIC 

600 01MBSC16) : REM SISTEMA BASE 

650 D I MCR ( 16 ) : REM ELENCO CORREZIONI 

750 : 

800 REM DEFINIZIONE CARATTERI 
850 : 

900 X1S-CHR*C213):X2S-CHRSC192):X3S-CHRSC17B):X4*-CHRSC201):REM " , - -r -s" 
950 XS1-CHRSC221 ) : X6S-CHRSC219) : X7S-CHRSC202) : X8S-CHRSC203) : REM - | 4 
1000 X3*-CHR*a77):XA*-CHRSC171):XBS-CHRSC179):REM -I “ 

1050 SPS-CHRSC32):REM SPACE 
1100 : 

1 1 SO POKES3280 . 0 : P0KES328 1 . 0 : PR I NTCHRSC 28 ) : CO-2 


1200 PR INTCHRSC 14R)CHRSCB)CHRSC 147) :PR1NTTABC6) “SYSTEMS EDITO RIAL E PRESENTA: " 
1250 FQRJ-1TO10: PR INTCHRSC 17) : NEXT : PRINTTABC9) “BY : ANTONIO PASTORELLI" 

1350 POKER 1 1 . 1 1 : POKER 14 . 1 1 : SYS5BS40 

1400 CO-CO* 1 : IFC0>15THENC0-R 

1450 P0KE64B. CO: PRINT'TOT CORRECTOR U1.0" 

1500 IFPEEKC 137)<> 64THEN1B00 
1550 GOTO13S0 

1S00 PRINTCHRSC 1S3) CHRSC 147) : POKE R11.14:P0KE R14.7:SYS 5B640 
1B0R PRI NT "■ATTENZIONE I 

1B04 PRINT" PER UTILIZZARE CORRETTAMENTE 

1606 PRINT" QUESTO PROGRAMMA , E' NECESSARIO CHE. " 

1608 PRINT" NEL DIGITARE LE UARIANTI , 

1609 PRINT" IL PRIMO SEGNO SIA 

1611 PRINT-fl QUELLO RITENUTO PIU’ PROBABILE I 
1614 POKE 1SB . 0: UIAIT 198,1 
IBIS : 

1616 REM • STAMPA PRESENTAZIONE • 

1617 : 

16S0 PRINTCHRSC147)CHRSC18) ; : F0RJ-1T013: PRINTCHRSC32) ; 

1655 NEXTt PRINT'TOT CORRECTOR" i 

1700 FOR J-l TO 13: PRINT CHRSC 32) ; :NEXT 

1750 POKE RI 1.3: POKE R14.ll: SYS 50640 

1600 PRINT CHRSC146)X1S; : FOR J-l TO HS:PRINT XRS; : NEXT: PRINT X3SX2SX2SX4S 
1BS0 PRINT TABC3)XSSTABC33)X5SSPCCR)X5S : PRINT TABC3)X7S; : FOR J-l TO R9 
1900 PRINT XR*: : NEXT: PRINT X9SXHSXRSXBS : PRINT CHRSC 14S)CHRSC145) i 
1S0R : 

1904 REM • INPUT NUMERO PRONOSTICI • 

1906 : ' 

1950 PRINT TAB14) "SU QUANTI PRONOSTICI LAUORI 7" : NS-"" : POKE 19B.0 

20C0 GET AS:IF AS-** THEN R000 

2050 IF ASCCAS)>47 AND ASCCASXS8 THEN H150 

R10O GOTO R000 

R150 NS-NS*AS: PRINT CHRSC145)TABC36-LENCNS)) ;NS: IFLENCNS)-2 THEN RRS0 
ERO0 GOTO R000 

RRS0 PR-UALCNS) : REM NUMERO PRONOSTICI 
R300 IF PR< 14 THEN UX-1R:B0T0 R400 
R3S0 UX-14 

R400 IFPR< 1R0RPR» 1 6THENPR INTCHRSC 145) TABC 34 )CHRSC 32) CHRSC 32) : NS— " : GOTOR000 
R40R : 

R404 REM - INPUT PREZZO/COLONNA • 

2450 PRINT CHRSC 147) "PREZZO DI UNA COLONNA POKE 19B.0:POKE 204,0:COS— " 

R500 GET AS : IF AS-CHRSC20) THEN R7S0 

E550 IF AS-CHRSC13) THEN RB50 

26O0 IF AS<"0" OR AS>*9" THEN R500 

R650 IF LEN ( COS ) -4 THEN R500 

6700 COS-COS+AS: PRINT AS;:GOTO R500 

2750 IF COS-"" THEN 2500 

8600 PRINT CHRSC H0) j : COS-LEFTSCCOS . LENCC0S)-1) : BOTO R500 
2850 IF UAL C COS) <500 THEN COS— ": POKE 133.0: GOTO 8500 
2900 POKE R04 . 1 : POKE 207.0: IF LENCC0S)-4THEN 3000 
2950 FOR J-l TO 4-LENCCOS) : COS-"0"+COS : ^ ÌXT J 

3000 FOR J-l TO LEN(COS) : POKE 4S73B+J . AàCCMIDSCCOS. J . 1) ) : NEXT J 
3050 PRINT CHRSC 147) "Za INSERIMENTO SISTEMA-BASE : 

3100 P0KE49152. PR: BOSUB18200 STAMPA GRIGLIA 
3150 : 

3200 REM • INPUT SISTEMA-BASE • 

3E50 : 

3300 X-0:PRINT"aBMr: :FOR J-l TO PR: P0KE198 , 0: PRINTTABC41BSCJ) ; 

3350 POKE 204 , 0 : GET AS: IFAS-"* THEN 3350 
3400 IF AS-CHRSC13) AND BSCJ)-"" THEN '3350 

3450 IF AS-CHRSC 13) THEN POKE204 . 1 : POKE 207 . 0: PRINT: GOTO 3B50 
3500 IFAS-CHRSC20) AND LENCBSCJ))>0 THEN 4150 
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3550 IF MOT AND ASO "2” AND AJO”X“ THEN 3350 
3600 GOTO 4050 

3650 IF LENCBSCJ33-3 THEN 3750 

3700 BSCJ3-BSCJ3-AS:PRINT AS::BOTO 33S0 

3750 BSCJ3-"": PRINT: PRINT“:TTABC43" 

3B00 PRINT X5S : PRINT”D"TA8(43 ; : GOTO 3350 

3850 PRINT“0”TABC4);BSCJ); : IF LENCBSCJ33-3 THEN PRINT XSS:BOTO 3350 
3S00 FOR 2X-1 TO 3-LENCBS(J33 : PRINT CHRSC32 3 ; : NEXT ZXrPRINT 
3350 X-X-1:IF X>2 ANDJ«JX THEN X-0-.PRINT 
4000 NEXT: GOTO 4300 

4050 FOR K-l TO LENCBSC J3 3 : IF AS-MIDSCBSC J3 ,K, 1) THEN 3750 
4100 NEXT: GOTO 3650 

4150 POKE 204, 1 : BSC J3-LEFTSCBSC J3 , LENCBSC J) 1-1) : PRINT 
4200 PRINT"3*’TABC4)“ "X5S: PRINT"3"TABi4)MC J3 : 

4250 GOTO 3350 

4300 PRINT "JtìCONFERNI CS/N3?"; 

4350 POKE204 , 0 : GETAS : I FAS- "S “THENPOXE204 . 1 : POXE207 . 0 : GOTO4800 
4400 IF AS-“N" THEN POKE 204,1:POKE 207 0:PRINT" -j:GOTO4650 
4450 GOTO4350 

4550 REM • CORREZIONE INPUT • 

4600 : 

4650 POKE204 , 1 : POKE207 , 0 : P0KE21 1,0: P0KE214 . 24 
4 700 SYS5B640 : PR I NT “C0RREG6 I . " { : GOTO3300 

4800 GOSUB500O0 : REM SCRIUE 1A COLONNA 
5050 : 

5100 PRINT-3-; -.F0RJ-1T0PR 

5150 IFBSC J)-"l "THENUR-1 

5200 IFBSCJ)-"X“THENUR-2 

5250 IFB*(J)--2"THENUR-3 

5300 IFBS(J)--lX"0RBSCJ)-»Xl"THENUR-4 

5350 IFB*CJJ--12“0RBS(J)-“21-THENUR-5 

5400 !FB*CJ)-“X2 ,, 0RBSCJ)-“2X"THENUR-B 

5450 IFBSCJ)-* , lX2"0RBSCJJ-»12X“0RB*(J>-"X12"0RB*CJ5-"X21"THENUR-7 
S500 I FBI C J ) - "21X "ORBSC J 3 - "2X1 "THENUR-7 
5550 P0KE49188+ J , UR : NEXT 
5600 : 

5650 PRINT CHR0C1473CHRSC18)" — • SELEZIONE TABELLA CORREZIONI " 

5660 FORJ-1TO16:CRCJ3-0:NEXT 
5700 PRINT XI*; 

5710 FOR J-0 TO PR-1 
5720 PRINT X2*X3* : : NEXT 
5740 PRINT X2SX4# 

5742 PRINT X5»; 

5745 FOR J-0 TO PR: PRINT 3PSX5S; : NEXT: PRINT: PRINT XS*; 

5750 FOR J-0 TO PR 

5760 PRINT SP*X5*;: NEXT: PRINT -.PRINT T7*i 

5770 FOR J-0 TO PR-1 

5780 PRINT X2SX9S; : NEXT: PRINT X2*X8* 

5785 PRINT CHRSC 193 ; : FOR J-l TO 3:PRINT CHRSC173 ; :NEXT: PRINT CHR*C2S3j 

5856 FOR J-0 TO 9:PRINT CHR1C293 CHRS C 293 ;: NEXT 

5857 FOR J-10 TO PR: PRINT "1" CHRS C 29 3 ;: NEXT : PRINT 

5860 PRINT CHRSC293 ; : FOR J-0 TO 9:PRINT tlIDSCSTRSC J3 . 2, 1 3 CHRS C293 :: NEXT 
5865 FOR J-10 TO PR:PRINT MIDSCSTRSCJ) . 3, 13 CHRS(293 -, : NEXT: PRINT: PRINT 
5870 PRINT CHRSC293 "t“ ; : P5-0 
5875 : 

5880 REM ••• INPUT CORREZIONI ••• 

5885 : 

5890 POKE 198,0 

5900 GET AS : IF AS-CHRSC293 THEN 5950 
5910 IF AS-CHRSC1573 THEN 5975 
5320 IF AS-CHRSC 133 THEN 6010 
5930 IF AS-"-" THEN 7000 
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5940 GOTO S900 

5950 1F PS-PR THEN 5890 

5970 PRINT CHRSC 157!SPSSPS"r" : :PS-PS+l:GOTO 5890 
5975 JF PS-0 THEN 5890 

5990 PRINT CHRSC 1575SPSCHRSC 157 5CHRSC 1575; 

5000 PRINT CHRSC 1575 “t"; : PS-PS-1 : GOTO 5890 
6010 IF CRCPS5-1 THEN CRCPS5-0:G0T0 6040 

6080 CRCPS5-1: PRINT CHRSC 145 5 CHRSC 145 5 CHRSC 145 5CHRSC 157 5 CHRSC 185 | 

6030 IF PS<10 THEN PRINT " ";:GOTO 6034 
6032 PRINT "1"; 

6034 PRINT CHRSC175CHRSC1S75; : IF PS>9 THEN 6036 

6035 PRINT MIDSC5TRSCPS5 ,2,1 5CHRSC 175CHRSC 175CHRSC 146! ; : GOTO 5890 

6036 PRINT MIDSCSTRSCPS! ,3,1 5 CHRSC 1 T 3 CHRSC 17 5CHRSC 146) ; : GOTO 5890 
6040 PRINT CHRSC1455CHRSC14S5CHRSC1455CHRSC1575 ; : GOTO 6030 

7000 PRINT CHRSC 157 5 SPS 

7009 PRINT: PRINT: PRINT "CONFERMI CS/N5?*:P0KE 198,0 

7010 GET AS:IF AS-"S” THEN 7180 
7020 IF AS- n N" THEN 7040 

7030 GOTO 7010 

7040 PS-0: PRTNT CHRSC 195 : : FOR J-l TO 6: PRINT CHRSC 175 : :NEXT 
7050 GOTO 5B70 
7160 : 

7170 REO ••• SCRIUE COLONNA-BASE 
7172 : 

71B0 FOR J-l TO PR 

7190 IFBSC J5-"l "ORBSC J5-"1X "ORBSC J5-"12"0RBSCJ 5-" 1X2"0RBSCJ5-"12X "THEN Pl-1 
7200 IFBSC J 5“ "X "ORBSC J5- "XI “ORBSC J 5- "X2“0RBSCJ 5- "X12 "ORBSC J5-"X21 “THEN Pl-2 
7210 IFBSC J5-"2"ORBSCJ5-"21 "ORBSC J5-"2X"ORBSC J5-“21X"ORBSC J5-"2X1 "THEN Pl-3 
7220 POKE 49199+ J , PI : NEXT 
7230 : 

7240 REM ••• SCRIUE ELENCO CORREZ 
7250 : 

7260 FOR J-0 TO PR 

7270 POKE 49543+J ,CRC J5 : NEXT 

13200 : 

13250 REFI ••• OTTI ni ZZAZ IONE ••• 

13300 : 

13350 PRINT CHRSC 1475 "a SCELTA LIVELLO DI OTTIMIZZAZIONE IMU* 

13400 PRINT"15 LIVELLO 1 CRIDUZIONE) " 

13450 PRINT-25 LIUELLO 2 CBI -RIDUZIONE!" 

13500 PRINT "3 5 INTEBRALE":POKE138.0 
13550 GETAS: IFAS-"1 "THENP0KE4S7S2, 1 : GOTO13750 
1 3600 I PAS- "2 "THENP0KE49752 . 2 : GOTOl 3750 
1 3650 I FAS- "3 "THENP0KE49752 . 0 : GOTOl 3750 
13700 GOTO 13550 
13750 PRINT CHRSC 1475 

13800 PRINTX1S; : FORJ— 1T01B : PRINTX2S ; : NEXT: PRINTX3SX2SX2SX2SX2SX4S 
13850 PRINTX5S "COSTO DI 1 COLONNA "X5SC0SXSS 

13900 PRINTX7S; : F0RJ-1T01B: PRINTX2S; : NEXT: PRINTX9SX2SX2SX2SX2SXBS 

13950 PRINTXJS; : F0RJ-1T021 : PRINTX2S; : NEXT: PRINTX3S j 

14000 FORJ-1TO10: PRINTX2Sj : NEXT: PRINTX4S 

14050 PRINTX5S "COLONNE DA SUILUPPARE"X5STABC335X5S 

14100 PRINTX7S; : F0RJ-1T021 : PRINTX2S; : NEXT: PRINTXSS; 

14150 FORJ-1TO10: PR1NTX2S; : NEXT : PRIN7X8S 

14200 PRINTX1S: : F0RJ-1T021 : PRINTXESj : UEXT: PRINTX3S} 

14250 FORJ-1TO10: PRINTX6S; : NEXT : PR INTX4S 

14300 PRINTXSS "COLONNE SELEZIONATE "X5STABC335X5S. 

14350 PRINTX7S; : F0RJ-1T021 : PRINTX2S: : NEXT: PRINTXSS j 

14400 FORJ-lTO10:PRINTX2Si : NEXT: PRINTXSS 

14450 PRINTX1S; : FOR J-1TO20 : PR I NTX2S ; : NEXT : PR I NTX3S j 

14500 F0RJ-1T011 : PRINTX2S; : NEXT: PRINTX4S 

14550 PRINTXSS "COSTO DEL SISTEMA "X5S; TABC335X5S 

14600 PRINTX7S; : FORJ-1TO20: PRINTX2S; :NEXT: PRINTX9S; 
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1.4 650 F0RJ-1T011 : PRINTX2S; :NEXT:PRINTX0S 
14700 : 

14750 PRINT"JteBrTABCS> "SOTTENDERE: SELEZIONE COLONNE" 

14800 PRINTTABC6)"MC»UN/ST0P1 PER INTERROMPERE) " 

14B50 : 

14900 REM SUILUPPO SISTEMA ••• 

14950 REM ••• PASSAGGIO IN L/M ••• 

1S000 : 

15050 rOR J-l TO 3: POKE 49742‘*’ J , 48 : P0KE49752+ J , 4B : NEXT : POKE 49765,0 
15100 : 

15150 REM CALCOLO COLONNE DA SUILUPPARE 
15200 : 

15250 TR-0:DO-0:FOR J-l TO PR:IF LENCBSCJ))-2 THEN OO-DO+1 
15300 IF LENCBSC J))-3 THEN TR-TR+1 

15350 NEXTJ : CS-INTC2TD0*3TTR) : CSS-MIDSCSTRSCCS) ,2,8): I FLENC CSS 1-8THEN 15450 

15400 F0RJ-1T08-LENCCSS) : CSS- "0 "+CSS : NEXT 

15450 F0RJ-1T08 : P0KE49714+ J , ASCCM I DSC CSS , J , 1 ) ) : NEXT 

1S500 POKE 49762 , 48 : POKE 49768 , 48 : POKE 49763 . 117 : POKE 49763, 117: POKE 49764,0 
15550 POKE 49772,0: POKE 43765,0: SYS 50608 
15700 F I - PEEK C 49762 ) ♦256* PEEK C 49763 ) : BY-49764 

15750 LS-"" : FOR J-49753 TO 49761 : l.'5-LS+CHRSCPEEKC J) ) : NEXTJ : CO-UALCLS) 

15800 PR I NTCHRSC 147) "COLONNE SELEZIONATE: "CO 

15B50 PRI NT "COSTO DEL SISTEMA : "UAL C COSI -CO 

15852 IF PEEKC 497651-1 THEN 31000 

158SS IF PEEKC 497721-1 THEN 31050 

15900 PRI NT "JUMBI» REGISTRA COLONNE SELEZIONATE - 

15950 PRINT"2> STAMPA SU UIDEO" : PRINT“3> STAMPA SU TABULATO" 

16000 PRINT"4> RESTART" 

16050 GET AS:IF AS-"1" THEN 30000 

16100 IF AS-"2" THEN 35000 

16101 IF AS-"3" THEN 38000 

16102 IF AS— 4" THEN 40000 

16103 GOTO 16050 

161S0 REM ••• CANCELLA LINEA 
16200 : 

16250 ZXS-“" 

16300 POKE804 , 0 : GET AS : I FAS-CHRS C 13 J ANDZXS< > ■ "THEN16650 

16350 I FAS-CHRS C 20 1ANDZXSO ""THEN16600 

16400 IFAS< "0"ORAS> "9"THEN16300 

16450 I FLEN C ZXS 1 -2THEN 16300 

16500 IFAS< "0"ORAS> "3“THEN16250 

16550 PRINTASj : ZXS-ZXS*AS: GOTO 16300 

16600 PR I NTCHRSC 20 )ì :ZXS-LEFTSCZXS, LENCZXSJ-13 : BOTO 16 300 

16650 POKE804 , 1 : POKE207 , 0 : PR I NT " " : IFOK-0THEN16800 

16700 IFUALCZXSK1THEN17150 

16750 GOTO 16850 

16800 IFUALCZXSX0THEN17150 

16850 IFUALCZXSJ>PRTHEN17150 

16900 IFCK-0THEN17100 

16950 IFUALCZXSXCTTHEN17150 

17000 IF CU-0 THEN 17100 

17050 IFUALCZXS)>CUTHEN17150 

17100 CT-0: RETURN 

17150 PRINT"3"TABCTA)“ ": PRINT“3"TABCTA> j : GOTO16250 
17200 ZXS-"" 

172S0 POKE204 , 0 : GETAS : I FAS-CHRS C 13 JANDZXSO ""THEN17S50 

17300 I FAS-CHRS C 20 )ANDZXS< > " "THEN1 8000 

17350 IFAS< “0“ORAS> "9"THEN17250 

17400 I FLENC ZXS J-2THEN 17250 

17450 IFAS< "0"ORAS> “9"THEN17200 

17500 PRINTASj : ZXS-ZXS+AS: BOTO17250 

17550 P0KE204 , 1 : POKE207 , 0 : PR INT " ” 

17600 JK-UALCZXS) : IFCIO0THEN17750 
176S0 IF JK<1 OR JK> INTCPR/N) THEN 17350 


84 


17700 CK-0: RETURN 

17750 IF CK-1 AND JK<AC THEN 17950 
17B0C IF CK-2 AND JK<TE THEN 17950 
17850 IF CK-3 AND JK<OU THEN 17950 
17300 BOTO17650 

17950 PRINT“3"TABC263" " : PRINT“:j 1 TABC263 i :GOTO17200 

18000 POKE204 , 1 : POKE207 , 0: PRINT "Il «T; : ZXS-LEFTSCZXS, LENCZXS3-13 : 3OTO172S0 
18050 : 

18100 REM ••• STAMPA BRIOLIA 
1B150 : 

18200 REM STAMPA BRIGLIA 

18250 PRINTX1SX2SX2SX3SX2SX2SX2SX4S : X-e : FORJ-1TOPR 
18300 XS-MIDSCSTRSCJ3.2.23: IFLENCXS3-1THENXS-" "*XS 
18350 PRINTX5SXSX5SSPSSPSSPSXSS: X-X+l 

18400 IFX>2 AND J<UX THENX-0 : PR I NT XASX2SX2SX6SX2SX2SX2SXBS 
18450 NEXT:PRINTX7SX2SX2SX9SX2SX2SX2SXBS 
18500 RETURN 
18550 : 

29900 : 

29910 REM ••• REGISTRA COLONNE 
29920 : 

30000 PRINT CHRSC 1473 "NONE FILE:": 

30070 NFS" ” " : PQKE 19B,0:POKE 204,0 

30080 BETAS: IFAS-""THEN300B0 

30081 IF AS-CHRSC203 AND LENCNFS)>0 THEN 30130 

30082 IF AS-CHRSC133 AND NFSO"" THEN 30140 
30090 I FAS- " . "ORAS- "/ "ORAS- " ( "ORAS" " 3 "THEN30120 

30100 A-ASCCAS3: IFCA364 AND A<903ORCA>47 AND A<583 THEN 30120 

30110 BOTO 30080 

30120 IF LENCNFS3-16 THEN 30080 

30125 PRINT AS; :NFS-NFS->-AS:SOTO30080 

30130 NFS-LEFTSCNFS, LENCNFS3-1 3 : PRINTCHRSC203 ; : BOTO30080 

30140 POXE 204 , 1 : POKE 207,0:PRINT CHRSC1473 "SU «JSISCO 0 SU a<H*3TR0?” 

30150 GETAS: IFAS-'D"THEN DU-B:BOTO 30190 

30160 IF AS--N" THEN OPEN 1 . 1 , 1 .NFS: DU-1 : GOTO 30200 

30170 BOTO 30150 

30180 QPEN1 ,8, 12: CLQ5E1 : IFSTO0 THEN 30140 
30190 OPEN1 ,8, 12, NFS+" ,S,UI" 

30200 PR INTUÌ , "T0T16.D" : PRINTS1 , PR : PRINT01 , CO 
30205 FORJ-1TOPR: PRINT01 . BSt J3 : NEXT 

30210 BY-INTC CCO*PR3/43 : IF CCO*PR3/4> INTC CCO-PR3/43TKEN BY-BY+1 
30220 LO- < PEEK C 49768 3 +256»PEEK C 49769 3 3 - 1 
30230 FOR J-l TO BY 

30240 PRINTH1 , CKRSCPEEKCLD+J3 3 ; : NEXT : CLOSE1 : GOTO 15B00 

31000 PR I NT "HS3U I LUPPO NON TERMINATO PER SUPERAMENTO CAPACITA 1 DI MEMORIA." 
31010 BOTO 15900 

31050 PRI NT "HS3UI LUPPO NON TERMINATO PER INTERRUZIONE CON TASTO 'STOP 1 ." 
31060 BOTO 15900 

35000 0PEN1.3 

35001 PRINT CHRSC 1473 : BY-0: A0-PEEKC4976B3*256«PEEKC497693 : XP-0: LF-0: NM-0 
35010 CL-1 : NP"1 

35020 IF PEEKC 1973-57 THEN PRINT01 1 T. OSE 1 : BOTO 15800 

35021 IF PEEKC 1973 0 84 THEN POKE 19B,0:WAIT 198,1 

35022 A-PEEKCAD3ANDC3*4tBY3 : A-A/ INTC4TBY3 
35030 IF A— 1 THEN AS-"1" 

35040 IF A-2 THEN AS-"X“ 

35050 IF A-3 THEN AS-”2“ 

35060 PRINT*1,AS; .-BY-BY+l: IF BY>3 THEN BY-0: AD-AD-1 
35070 NP— NP»1 : I F NP>PR THEN 35090 
35080 BOTO 35020 

35090 CL-CL+1 : IF CL>CO THEN 36000 

35100 NP— 1 : IF XP-0 THEN XP-1 : PRINTH1 . TABC213 : : BOTO 35020 
35110 XP-0 : PRI NTKl:LF-LF-*-l: IF LF>3 THEN LF-0:PRINT#1:NM-NM+1 
35112 IF NM>3 THEN 3S130 
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35120 BOTO 35020 

35130 NM-0 : POKE 138,0:UIAIT 13B.1: PRINT CHRSC 1H7 ): BOTO 35020 

36000 PRINT : PRINT "WINE STAMPA. PREMI UN TASTOI":POKE 1SB,0:WAIT 138,1 

36010 PRINT01 : CLOSE1 : BOTO 1SB00 

38000 OPEN1 ,4,7: CLQSE1 : 1 F STOO THEN 15800 

38010 OPEN1 ,4,7: BOTO35001 

40000 PRINT CHRSC 147) "STESSO SISTEMA?" : POKE 138,0 
40010 BET AS:IF AS— S" THEN 40050 
40020 IF AS— N" THEN 40035 
40030 BOTO 40010 

40035 FOR J-l TO 16: BSC J)-"" : NEXT 

40040 CK-0:OK-0:COS— 500 CU-0 : BOTO 1600 

40050 PRINT CHRSC 147) "STESSE CORREZIONI?" : POKE 138,0 

40060 BET Al: IF AS— S" THEN BOSUB 50000:SOTO 13350 

40070 IF AS— N- THEN BOSUB 50000: BOTO 5650 

40080 BOTO 40060 

43S00 : 

43350 REM ••• SCRIUE 1A COLONNA ••• 

49860 i 

50000 FOR J- 1TOPR : AS-LEFTS C BS C J ) , 1 ) : I F AS— 1 "THENA- 1 
50010 IFAS— X-THENA-2 
50020 IFAS— 2-THENA-3 

50030 P0KE49165+ J , A : IFLENCBSC J))> 1THENLU-J 
50040 NEXTJ : P0KE4S182 . LU : REM ULTIMA UARIANTE 
50050 RETURN 


1 •*•••**»•»*••*••*••••«••••***<»•*•»«••*»»*•*»•**«»»•• 

5 • PROGRAMMA PRINCIPALE DI TOT-CORRECTOR 

4 * 49155 DEUE CONTENERE IL NUMERO DI PRONOSTICI 

5 • 49183-49198 CONTENGONO IL SISTEMA-BASE 

G * 49166-49181 DEUONO CONTENERE LA COLONNA BASE 
7 • CHE INIZIALMENTE DEUE ESSERE LA PRIMA 

B * GENERATA DAL SISTEMA CIL PRIMO SEGNO 

3 • DI OGNI UARIANTE), POI UIENE AGGIORN. 

10 • DAL PROGRAMMA. 

11 * 49185 DEUE CONTENERE IL NUMERO DEL PRONOSTICO CHE 

15 • CONTIENE L’ULTIMA UARIANTE DEL SISTEMA 

13 • 49768-49769 FANNO DA PUNTATORI ALL’INIZIO DELLA 

14 • ZONA DI MEMORIA PER LA MEMORIZZAZIONE 

15 • DELLE COLONNE SELEZIONATE 

16 m 49765-49763 PUNTATORI ALLA ZONA DI MEMORIZZAZIONE 

17 * DELLA PROSSIMA COLONNA SELEZIONATA: 

10 * INIZIALMENTE DEUONO ESSERE SETTATI CON 

19 * I UALORI CONTENUTI IN 49768-49769, POI 

50 * POI SARA’ IL PRG AD AGGIORNARLI 

51 * 49764 DEUE ESSERE AZZERATO PRIMA DI CHIAMARE 

55 • QUESTA ROUTINE. 

53 • 49765/49775 FLAGS DI ’OUT OF MEMORY’ E DI 'STOP’ 

54 * DEUONO ESSERE AZZERATI 

55 • 49543-49559 ELENCD CORREZIONI SELEZIONATE C0-16) 

56 * OGNI BYTE A 1 CORRISPONDE ALLA 

57 • SELEZIONE DI UNA CORREZIONE, ES: 

58 * 49543-1 CORREZIONE DI 0 ERRORI 

59 * 49547-1 CORREZIONE DI 4 ERRORI 

30 * 49755 LIUELLO DI OTTIMIZZAZIONE: 

31 * 0-NESSUNO C INTEGRALE) 


SS 



32 • 1-RIDU2I0NE CN-1) 

33 • 2-BI -RIDUZIONE CN-2) 

34 * CDOUE ’N’ "NUMERO PRONOSTICI) 

35 
36 


37 

COLATT 

- 

49166 

COLONNA ATTUALE 

38 

NPRON 

- 

49152 

NUMERO PRONOSTICI 

39 

COLBAS 

- 

49200 

COLONNA BASE 

40 

C0RRE2 

- 

49543 

ELENCO CORREZIONI 

41 

42 





43 

• CHIAMATE SUBROUTINES * 


44 





45 

46 

SU IL 


SC350 


47 

DECSU 

•- 

SC3AF 


48 

PRSU 

- 

SC3C5 


49 

INCSIS 

— 

SC3F3 


50 

PRCOST 

- 

SC44D 


51 

INCSEL 

- ■ 

SC47B 


52 

PRSEL 

- 

SC490 


53 

OTTIM 

- 

SC4C6 


54 

STORE 

- 

SC548 


55 

56 

BREAK 

_ 

49772 

FLAG DI BREAK CI -PREMUTO) 

57 

OUTMEM 

- 

49765 

FLAG DI ’OUT OF MEMORY’ 

58 

59 

60 

ERRORS 


4SI 57 

1-MEMORIA DISPON. ESAURITA 

61 

62 

63 

64 


ORG 

SC5B0 


65 

66 

START 

LDA 

#0 ; 

i AZZERA 

67 


STA 

ERRORS ; 

; NUMERO ERRORI 


69 

70 

71 RIPETI 

72 

73 

74 

75 

76 

77 

78 LOOP 

79 
B0 
01 
82 
83 


LDX 

LDA 

CMP 


BEO 

INC 

DEX 

BNE 

LDX 

LDA 

BNE 


NPRON 

COLATT-1 , X 
COLBAS-1 , X 


LOOP 

ERRORS 

RIPETI 

ERRORS 

CORREZ.X 

FORSE 


INIZIALIZZA CICLO PER 
NUMERO PRONOSTICI 
CARICA UN SEGNO DELLA 
COLONNA ATTUALE, E LO 
CONFRONTA CON IL 
CORRISPONDENTE DELLA 
COLONNA-BASE 
SE UGUALI SALTA A 'LOOP’ 
INCREMENTA NUMERO ERRORI 
DECREMENTA CICLO, E SE 
NON FINITO SALTA A 'RIPETI 
CARICA NUMERO DI ERRORI 
CONFRONTA CON TABELLA 
DELLE CORREZIONI, E SE 
SELEZIONATI C-l) SALTA 


04 

JMP 

DECR 

85 FORSE 

LDA 

49753 

0S 

BEO 

PIU 
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Bti 

LDA 

49763 

09 

CMP 

49760 

90 

BNE 

RIDUZ 

31 

LDA 

49763 

93 

CMP 

49769 

93 

BNE 

RIDUZ 

94 

JMP 

PIU 

95 



SS 



97 



90 RIDUZ 

JSR 

OTTIM 

99 

LDA 

49767 

100 

BNE 

DECR 

101 PIU 

JSR 

INCSEL 

103 

JSR 

INCSIS 

103 

JSR 

STORE 

104 

JSR 

PRSEL 

10S 

JSR 

PRCOST 

106 DECR 

JSR 

DECSU 

107 



108 

JSR 

PRSU 

109 



110 



111 

LDA 

OUTMEM 

113 

BEO 

QUAS 

113 

RTS 


114 



115 QUAS 

LDX 

#0 

116 QUASI 

LDA 

SC333 , X 

117 

CMP 

#S30 

110 

BNE 

DOSUIL 

119 

DEX 


130 

BNE 

QUASI 

131 

RTS 


133 



133 DOSUIL 

JSR 

SUIL 

134 



135 



136 

LDA 

197 

137 

CMP 

#S3F 

130 

BNE 

TASTO 

139 

LDA 

#i 

130 

STA 

BREAK 

131 

RTS 


133 TASTO 

LDA 

653 

133 

CMP 

«S01 

134 

BEQ 

TASTO 

135 

JMP 

START 


ALTRIMENTI UAI A ’DECR’ 
CARICA LIUELLO OTTIMIZZAZ 
SE NESSUNO (0) SALTA 

SE I PUNTATORI ALLA 
ZONA DI MEMORIZZAZIONE 
DELLA PROSSIMA COLONNA 
SONO UGUALI AI PUNTATORI 
ALL’INIZIO DELLA ZONA 
DI MEMORIZZAZIONE DELLE 
COLONNE 
SALTA A 'PIU’ 

C SALTA RIDUZIONE) 

CHIAMA ROUT. OTTIMIZZAZ. 
TESTA IL RISULTATO, E SE 
UGUALE A 1 SALTA A ’DECR’ 
INCREM COLONNE SELEZION. 
INCREM COSTO DEL SISTEMA 
MEMORIZZA COLONNA ATTUALE 
STAMPA NUM. COLONNE SELEZ , 
STAMPA COSTO DEL SISTEMA 
DECREMENTA NUMERO DELLE 
COLONNE DA SUILUPPARE 
STAMPA NUMERO DELLE 
COLONNE DA SUILUPPARE 

MEMORIA ESAURITA? 

SE NO COUTMEM-0) SALTA 
ALTRIMENTI ESCE DA PRG 

CONTROLLA SE 
NUMERO DI 

COLONNE DA SUILUPPARE 
E’ GIUNTO A 0 
SE NO SALTA A ’DOSUIL’ 
ALTRIMENTI ESCE 
DAL PRG 

SUILUPPA SISTEMA 
(CALCOLA NUOUA COLONNA 
ATTUALE) 

CARICA CODICE TASTO PREM. 
E* ”RUN/STOP"? 

SE NO SALTA A 'TASTO’ 

ALTRI MENTA SETTA IL 
FLAG DI 'BREAK’ 

ED ESCE DAL PRG 
IL TASTO 

"SHIFT” E’ PREMUTO? 

SE SI SALTA A 'TASTO’ 
ALTRIMENTI UAI A ’ START’ 
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Riduciamo la spesa 


Come ridurre il numero di colonne 
di un sistema senza alterare le probabilità di vincita 


sca, da quella eliminata, per un 


T ra i diversi metodi per limitare il 
numero di colonne giocabili di un si- 
stema. i sistemi ridotti sono Torse i 
più antichi, ma non per questo i me- 
no eflicienti. 

Per ottenere la contrazione del nu- 
mero di colonne giocabili i sistemi 
ridotti si basano su di un criterio 
completamente diverso da quelli u- 
sati da altri metodi. 

I programmi visti finora, infatti, 
pongono delle condizioni sulla com- 
posizione delle colonne del sistema 
(numero segni consecutività. colon- 
ne impossibili correzione d’errore e 
cosi via). 

La riduzione, invece, lascia com- 
pletamente inalterato il sistema- 
base. Elimina, insomma, solo quelle 
particolari colonne senza le quali si 
può egualmente totalizzare almeno 
una vincita di seconda categorìa (12 
punti perii Ibtocalcio o 11 per Totip 
ed Enalotto), anche nel caso sfortu- 
nato in cui la colonna vincente sia 
proprio una di quelle eliminate 
dalla riduzione. 

Pertanto i sistemi ridotti, lasciando 
inalterato il sistema-base, puntano 
maggiormente a vincite di seconda 
categoria a differenza degli altri me- 
todi che impongono condizioni al si- 
stema, che, se verificate, realizzano 
sicuramente vincite di prima ca- 
tegorìa. 

Ma vediamo in dettaglio il funzio- 
namento dei sistemi ridotti. 

Con i sistemi ridotti i possibile gio- 
care solo una parte delle colonne 
contenute in un sistema, facendo in 
modo che queste siano in grado di 
garantire una vincita di seconda ca- 
tegorìa qualunque sia la colonna vin- 
cente purché questa, ovviamente, ap- 
partenga al sistema-base. 

Occorre che ogni colonna elimina- 
ta sia “coperta" da almeno ima co- 
lonna tra quelle giocate; ciò vuol dire 
che, per ogni colonna eliminata, d 
deve essere, tra quelle selezionate per 
la puntata, almeno una che differì- 


solo pronostico. 

In questo modo si hanno due possi- 
bilità di vinata: 

• La colonna vincente è tra quelle 
giocate: si realizza una vinata di pri- 
ma categorìa ed eventualmente an- 
che alcune vinate di seconda ca- 
tegorìa. 

• La colonna vincente è tra quelle eli- 
minate: si realizza una o più vinate 
di seconda categoria. 

Per chiarire meglio quanto detto fi- 
nora d riferiremo al seguente si- 

1X2 

1 

1 

IX 

1 

1 

1 

IX 

1 

1 

1 

1X2 

1 

Sviluppandone integralmente le 
colonne otterremo: 

// 1111111111111 
V 11111111111X1 
3/ 1111111111121 
4/ 1111111X11111 
5/ 1111111X111X1 
6/ 1111111X11121 
7/ 111X111111111 
8/ 111X1111111X1 • 

9/ 111X111111121 
10/ 111X111X11111 
11/ 111X111X111X1 
12/ 111X111X11121 
lì/ Xllllllllllll 


14/ xniinnnxi • 

15/ XU1UUH121 

io/ xiiiiiixiun 

17/ XU 11 11X1 11 XI 
18/ XU1111XU121 
19/ X 11X111111111 • 

20/ XI 1X111111 1X1 “* 

21/ X11X11111U21 • 

22/ xuxinxiiiu 

23/ XUXlUXlllXl • 

24/ X11X111X11121 
25/ 2111111111111 
26/ 21111111111X1 
27/ 2111111111121 
28/ 2111111X11111 
29/ 2111111X111X1 
30/ 2111111X11121 
31/ 211X111111111 
32/ 211X1111111X1 • 

33/ 211X111111121 
34/ 211X111X11111 
35/ 211X111X111X1 
36/ 211X111X11121 

Supponendo, ora, che la colonna 
vincente sia la ra20 (che qui riportia- 
mo per comodità)-. 

20/ XU XII XU 11X1 ••• 

...totalizzeremo un 13 e sei ^ottenu- 
ti con le colonne n. 8. 14. 19, 21, 23. c 
32 (contrassegnate con un asterisco). 

Noterete subito che le colonne indi- 
cate con l'asterisco non hanno una 
distribuzione regolare (ossia mate- 
maticamente determinabile con faci- 
lità), ed è proprio questa caratteristi- 
ca la causa dei problemi connessi al- 
lo sviluppo di sistemi ridotti ed alla 
loro trasposizione su metodologie 
di calcolo. 

Infatti, a causa di questa caratteri- 
stica. sono risultati finora vani gli 
sforzi degli studiosi per individuare 
un algoritmo matematico, per poi 
“darlo in pasto" al calcolatore, in mo- 
do da metterlo in condizione di ri- 
durre qualsiasi sistema venga ela- 
borata 



A questo proposito ricordiamo il 
programma (pubblicato sul numero 
37 di Commodore Computer Club) 
che, a dispetto di quanto detto finora, 
riduceva un qualsiasi sistema, pur se 
di 13 triple! 

11 programma in questione ("Ridu- 
tot"), per ottenere un algoritmo di 
calcolo generale, sacrificava alcune 
colonne ma. tuttavia, la diflierenza 
tra numero di colonne necessarie al- 
la riduzione e numero di colonne in- 
dividuate da Ridutot diveniva tanto 
più grande quanto più era grande il 
sistema-base. 

In riferimentd alla pubblicazione 
di Ridutot. arrivarono numerose let- 
tere (e telefonate) da parte di lettori 
che si meravigliavano nel vedere 
pubblicati, su riviste di sistemistica, 
delle riduzioni che fornivano, per u- 
no stesso sistema, un numero di co- 
lonne più basso rispetto a quello in- 
dicato da Ridutot. 

Di conseguenza fummo costretti a 
pubblicare un articolo, nel quale si 
spiegava il motivo degli “sprechi" di 
Ridutot (CCC N.41 “Come ti sei ri- 
dotto!"). e promettemmo la realizza- 
zione di un altro programma che 
trattasse il problema in modo di- 

II program ma di cui parliamo t. ap- 
punto. “Tot Reducer 1 .0". che rappre- 
senta l'ahemativa a "Ridutot". 

Tot Reducer non elabora la ridu- 
zione di volta in volta, ma contiene, 
al suo interno, una serie di “Ridutto- 
ri", ovvero di formule di riduzione a- 
datte ad un solo tipo di sistema. 

I Riduttori previsti in questa prima 
versione sono: 

3 Doppie 

4 Doppie 

5 Doppie 

6 Doppie 

7 Doppie 

3 Di pie 

4 Triple 

1 Tripla + 2 Doppie 

1 THpia + 4 Doppie 

2 THple + ì Doppia 

2 THple + 2 Doppie 

2 Triple + 4 Doppie 



3 THple + 1 Doppia 

3 THple + 3 Doppie 

Tali Riduttori prevedono una certa 
gamma di combinazioni (14), che 
può essere ampliata a piacimento 
con semplicissime modifiche al pro- 
gramma principale. 

Sulla rivista C.C.C. oltre a rispon- 
dere alle domande dei lettori sugli ar- 
gomenti qui pubblicati, continuere- 
mo la rubrica Totocalcio, con nuovi 
programmi e nuovi riduttori per am- 
pliare il programma proposto. 

Grazie alla disponibilità di un cer- 
to numero di riduttori, fi compito del 
programma sarà quello di verificare 
resistenza di un riduttore adatto al 
sistema-base immessa quindi proce- 
dere all'adattamento del riduttore al 
caso specifico ed infine stampare, o 
registrare su supporto magnetica le 
colonne individuate. 

Dal momento che non esiste un 
metodo generale di riduzione, ma va- 
ria da caso a caso, anche fi grado di 
riduzione è variabile: pertanto è op- 
portuno stabilire uno strumento di 
misura, in grado di indicarne l’eco- 
nomicità. vale a dire il “Rapporto di 
riduzione" che cosi definiamo: 

Il “Rapporto di riduzione" (Rdr) è 
il numero di colonne del sistema in- 
tegrale diviso per il numero di colon- 
ne risultanti dalla riduzione. 

Più il rapporto di riduzione è alto, 
più la riduzione risulta economica- 
mente valida. 

Inoltre, grazie al Rdr. siamo in gra- 
do di calcolare la probabilità, in caso 
di vincita, di realizzare vincite di pri- 
ma categoria, piunosto che di se- 
conda. 

Supponiamo che si voglia ridurre fi 
seguente sistema da tre triple: 


1 

1 

1X2 


I 

1X2 

1 


1 

1X2 

Il programma (che non presenta 
particolari problemi rispetto ai pre- 
cedenti) fornirà la seguente ridu- 
zione: 

a/ 11X1111211111 
W 11211111111X1 
c/ 1121111X11121 
d/ 1111111111121 
e/ 1111111X111X1 

Il sistema integrale, composto da 3 
triple fornisce (3 exp 3 - ) 27 colonne, 
tra le quali vengono selezionate, per 
la riduzione, solo le cinque viste. 

U Rdr. in questo casa risulta 
essere: 

27/5 m 5.4 

Verrà quindi individuata una co- 
lonna ogni 5.4 (in media) del si- 
stema integrale. 

Dividendo 100 per il Rdr. ottenia- 
mo la probabilità che si avrà, in caso 
di vincita, di totalizzare il punteggio 
pieno: nel caso precedente sarà 
circa: 

100/5.4 - 18.52 % 


Di conseguenza la probabilità di 
realizzare una vincita di seconda ca- 
tegoria. potrà essere calcolata sem- 
plicemente per differenza: 

100-1852 - 81.48 % 

Per avere un parametro di confron- 
to per il Rdr. è possibile calcolare un 
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"Rapporto teorico di riduzione" 
tRtrl. 

Dal momento che ogni tripla gene- 
ra due vincile di seconda categoria, 
ed ogni doppia ne genera una. la 
somma delle vincite di seconda cate- 
goria generate da una qualsiasi co- 
lonna del sistema, prende il nome di 
“colonne utili", in quanto indica 
quante colonne possono essere "co- 
perte" da una colonna giocata. 

Di conseguenza il Rtr indica il li- 
vello ottimale di riduzione, dato un 
certo numero di "colonne utili", ed è 
calcolato nel modo seguente: 

Rtr = Numero colonne dello sviluppo 
integrale / (colonne utill+1) 

Riprendendo l'esempio preceden- 
te, il sistema-base, composto da tre 
triple, genera un numero di colonne 
utili pari a 7 (3 triple • 2 + 1), e svilup- 
pandolo integralmente dà luogo a 
27 colonne. 

Di conseguenza il Rtr t uguale a: 

Rtr - Colonne dello sviluppo integrale 
(27) /colonne utili (7) * 3.86 àrea. 

La riduzione indicata è composta 
da 5 colonne, pertanto il "Rapporto 
effettivo di riduzione” (Rer) è pari 


Rer - Colonne dello sviluppo integrale 
(27) / colonne della riduzione (5) 
- 3.4 : 

In questo caso, un po' anomalo, il 
Rer è risultato maggiore del Rtr, si 
può quindi affermare che la riduzio- 
ne è economicamente efficiente. 

Tuttavia, nella quasi totalità dei ca- 
si. il rapporto teorico à maggiore o 
tutt'al più eguaglia il rapporto effetti- 
vo di riduzione. 


Come usare il programma 

Dopo aver impartito il solito RUN. 
apparirà sul video l'ormai consueta 
schermato di presentazione; pre- 
mendo un usto qualsiasi si attiva il 
programma. 

Sarete invitati ad inserire il si- 
stema-base, del quale volete ottenere 
la riduzione. 



Il programma accetta le varianti in 
qualsiasi ordine (esempio: 12, 21. XI, 
IX e cosi via), ma non ammette la ri- 
petizione dei segni; ad esempio se di- 
gitate "11", il pronostico immesso 
verrà cancellato e dovrete rein- 
seririo. 

Con il tasto Inst/Del. invece, potre- 
te cancellare i pronostici inseriti, e 
quindi correggerli. 

Terminato l'introduzione del si- 
stema-base. verrà chiesta un'ulterio- 
re conferma di quanto inserito. 

Premendo “N" potrete correggere i 
pronostici errati, mentre con la sem- 
plice pressione del tasto Return, con- 
fermerete i rimanenti. 

Una volta confermato il sistema- 
base. il computer controllerà la di- 
sponibilità del riduttore adatto a quel 
sistema. 

In caso negativo verrà segnalata 
l'assenza del riduttore idoneo, e do- 
vrete. purtroppo, correggere il siste- 
ma. in modo da portarlo ad un nu- 
mero di doppie e triple previste dai ri- 
duttori disponibili: oppure potrete 
stilarne un altro. 

In caso contrario, una volto accer- 
tato la presenza del riduttore, nella fi- 
nestra video, posta sulla destra dello 
schermo, verrà visualizzato un qua- 
dro informativo del sistema, ed in 
particolare: 

numero di triple e doppie de I siste- 
ma integrale 

b: numero di colonne del sistema 
integrale 


e numero di colonne elaborate dal 
programma 

Premendo un tosto qualsiasi, verrà 
chiesto se si vuole la riduzione: ri- 
spondendo negativamente, si potrà 
inserire un nuovo sistema: in caso 
contrario dovrete stabilire la periferi- 
ca che riceverà le colonne elaborate: 
il video, la stampante, il nastro od D 
disco; premendo il tasto 5. invece, si 
rilancia il programma. 

Scegliendo il video o la stampante 
(rispettivamente selezionati con i to- 
sti “1" e “2"). si otterrà un risultato 
immediatamente visibile. 

Optando per la registrazione delle 
colonne, queste verranno riportate su 
supporto magnetico, secondo lo 
standard già visto nei programmi 
precedenti (Tot 16 PlUs. Tot Correc- 
tor). Sarà possibile, in seguito, stam- 
pare le colonne e controllarne i pun- 
teggi con gli appositi programmi. 

In ogni caso, dopo aver inviato 
l'output verso una periferica, il pro- 
gramma ritorna al menu di selezione 
delle periferiche, rendendo eventual- 
mente possibile un nuovo output su 
altri dispositivi. 

Salvando le colonne su supporto 
magnetico, verrà prima richiesto il 
nome da assegnare al file, poi verrà 
effettuata la registrazione. 

Inutile ricordare che i possessori 
del drive, dovranno utilizzare nomi 
diversi per ogni file, mentre chi pos- 
siede il registratore non avrà questo 
problema. 


■ 



Per gli esperti 



Chi volesse incrementare il nume- 
ro di riduttori previsti dal program- 
ma. ricavandoli da riviste specializ- 
zate o in base a proprie personalizza- 
zioni. potrà farlo con semplicità atte- 
nendosi alle seguenti istruzioni: 

1 La linea 2920 del programma “Tot 
Reducer", contiene il numero di ri- 
duttori disponibili: incrementate il 
numero (che nella versione del pro- 
gramma fornito è pari a 14) in rela- 
zione alle aggiunte che intendete o- 
perarc. Supponendo di aggiungerne 
una sola scriverete: 15. 

2 Aggiungere nella linea 3010, in co- 
da ai DATA già presenti, la descrizio- 
ne del sistema e l'indirizzo dal quale 
partono i dati del riduttore. Se. ad e- 
sempio. aggiungete un riduttore per 
quattro triple e tre doppie, nella linea 
3010 aggiungerete» 

ma ioooo 

-.in cui “4T3D" indica quattro triple 
e tre doppie e 10000 rappresenta il 
numero di linea Basic dal quale ini- 
ziano i dati del riduttore. 

3 Nella linea indicata (10000. che non 
esiste nel programma pubblicato e 
che si rende quindi disponibile per 
l’utente)), inserite un'istruzione DA- 
TA. seguita dal numero di colonne 
della riduzione. 

4 Dalla linea indicata più 10 (10010) 
in poi. inserirete il riduttore, dopo l'i- 
strozione DATA, con la seguente 
codifica: 


1 - Segno 1 

2 - Segno X 

3 - Segno 2 

Ricordiamo che, nell'inserimento 
delle linee contenenti il riduttore, la 
numerazione è libera, cosi anche la 
quantità di segni per linea, purchi di- 
visi l'uno dall'altro con la virgola. 

In ogni caso è consigliabile inserire 
una sola colonna per linea, in modo 
da facilitare l'individuazione di c- 
ventuali errori di trascrizione. 


9? 












Questo programma può essere fa- 
cilmente adattato ad altri computer 
(Plus/4, C/128), sostituendo l’istni- 
zione- 


SYS 49 152 JVC 
-con- 

RESTOSE XX 


Poke 21IJ0C- Pbke 214.YY: Sys 58640 

-con una istruzione "CHAR" idonea 
per posizionare il cursore nella posi- 
zione voluta. 

Ad esclusione di queste due ecce- 
zioni. il programma t completamen- 
te funzionante su qualsiasi modello 
Commodore (Vic-20. C/16. Plus/4. C- 
128). 


Un caso pratico 

Vediamo in modo dettagliato, con 
un esempio, come aggiungere un ri- 
duttore in Tbt- reducer. 

Supponendo di voler aggiungere il 
riduttore per 5 doppie, dovremo pro- 
curarci un apposito riduttore, uno 


dei quali potrebbe essere il seguente: 

a/ 111 11 limili 

h/ 11XXX1 11 II 111 
e/ 1 XXXI 11 11 11 11 
d/XlXXUtllllll 
e/XXllXllllllll 
{/ XXlXXllllllll 
g/XXXlXl 1111 111 
Non ci rimane quindi che aggior- 
nare la libreria di riduttori, contenu- 
ta nel programma. 

Innanzitutto, dovremo aggiornare 
il numero di riduttori disponibili, 
cambiando il numero contenuto nel- 
la linea 2920. 

Dato che il programma originale 
prevede 14 riduttori, dopo il primo 
aggiornamento, la linea si presenterà 
cosi: 

2920 DATA 15: Rem numero riduttori 
previsti 

D secondo passo ì quello di inclu- 
dere i dati del riduttore nella linea 
3010 (aggiungano 5D. ovvero 5 dop- 
pie). e il numero della prima delle li- 
nee che contengono il riduttore; la li- 
nea modificata si presenterà quindi 
nel modo seguente: 

3010 DATA 3T1D. 4270. 3T3D. 4380. 
5D. 10000 

nell'ipotesi che i dati del riduttore si 


scrivano nelle linee da 10000 in 
poi. 

A questo punto nella linea I000<> 
metterà il numero di colonne del n 
duttore (nel nostro caso sette). 

La linea 10000 si presenterà, allora 
nel modo seguente. 

10000 DATA 7: Rem colonne per 5 
doppie 

In seguito, incrementando il nume- 
ro di linea di 10 unità, si inizia a digi 
tare il riduttore, prestando attenzione 
a codificare i segni, in accordo con la 
seguente tabella: 

segno 7" - 1 
segno “ X " m 2 
segno “ 2 " - 3 

Il riduttore visto prima verrà quindi 
digitato nel seguente modo. 

10010 DATA l.U.1.1 
10020 DATA 1.1.2,22 
10030 DATA 1.22.2.1 
10040 DATA 21.221 
10050 DATA 22.1.1.2 
10060 DATA 221.22 
10070 DATA 2.2.21.2 

1 segni relativi ai pronostici fissi si 
omettono, in quanto sarà H program 
ma, di volta in volta, ad adattare il ri- 
duttore al sistema in questione. 


100 REM 

110 REM • TOT REDUCER • 

120 REM ••*••••••**•••• 

130 REM 

140 REM BY ANTONIO PASTORELLI 
150 : 

1B0 DIM BSC 16) : REM SISTEMA-BASE 

170 DIM TR( 16) . DPC 16) : REM UARIANTI TRIPLE E DOPPIE 

1B0 POKE 80B , 225 : REM DISABILITA RUN/STOP E RESTORE 

130 F0RJ-1T034:READA:P0KE491S1-»J.A:NEXT J 

200 DATA 32,253, 174, 32, 136 

210 DATA 173,32.247,183.32 

220 DATA 19,166,176.5,162 

230 DATA 17.108.0.3.165 

240 DATA 35,164,36,56,233 

250 DATA 1,176,1,138,133 

260 DATA 65,132.66.36 

270 REM 

280 REM • DEFINIZIONE CARATTERI • 

290 REM •••••••••••••••••••••«••• 

300 : 

310 X1S-CHRSC213):X2S-CHRSC132):X3S-CHRSC178):X4S-CHRSC201):REM 

320 XSS“CHRSC221) : X6S-CHRSC219) : X7S”CHRSC202) : XBS-CHRSC203) : REM " | + W 

330 X9S-CHRf(177):XAS-CHRS(171):XBS-CHRSC179):REM "J-f -T 


340 SPS-CHRSC323 


3S0 ; 

360 POKE 53260,0: POKE 53281 . 0: PRINT CHRSC283:REM COLORI SCHERMO 

3"'0 PRINT CHRSC 1423CHRSCB3CHRSC 1473 : PRINT TABC 63 "SYSTEMS EDITORIALE PRESENTA: 

300 FDR J-l TO 10: PRINT CHRS<17):NEXT J:PRINT TABC33 ’BY : ANTONIO PASTORELLI" 

3 SO CO-3 

403 POKE 211 , 14 : POKE 214,11:SYS 50640 

4 10 C0-C0»1:IF C0>1S THEN CO-2 

123 POKE 646. CO: PRINT "TOT REDUCER" 

430 IF PEEKC 19730 64 THEN 4S0 

440 BOTO 400 

450 PRINT CHRSC 1593 

450 PRINTCHRSC1473CHRSC1B3 ; : F0RJ-1T014 : P S INTCHRSC323 ; : NEXT : PRINT "TOT REDUCER 
470 FOR J-l TO 14: PRINT CHRSC 323 -, : NEXT 
4B0 POKE 21 1,3: POKE 214, 11: SYS 5B640 

430 PRINT CHRSC1463X1S; : FOR J-l TO 23:PRINT X2S;:NEXT J:PRINT X3SX2SX2SX4S 
i; PRINT TAB C 3 3 X5ST ABC333X5SSPCC23X5S:PRINT TABC33X7S i : FOR J-l T029 
■0 PRINT X2S ; : NEXT J:PRINT XSSX2SX2SXBS: PRINT CHRS(1453CHRSC1453 ; 

520 PRINT TABC43 "SU QUANTI PRONOSTICI LAUORI 7" : NS-“" : POKE 13B.0 
33 SET AS: 1F AS-"” THEN 530 
443 IF ASCCAS3>47 AND ASCCAS3<5B THEN 560 
550 GOTO 530 

56C MS-NS+AS: PRINT CHRSC 1453TABC 36-LENCNS3 3 ; NS : IF LENCNS3-2 THEN 580 

570 BOTO S30 
580 PR-UALCNS) 

590 UX-14: IF PR<14 THEN UX-12 

600 PRINT CHRSC1473CHRSC183 ; : FOR J-l TO 14.PRINT CHRS C 323 ;: NEXT J 
510 PRINT "TOT REDUCER"; : FOR J-l TO 14:PRINT CHRS C 323 ;: NEXT J 
620 POKE 21 1,0: POKE 214, 2: SYS 58640: REM COORDINATE CURSORE 


630 : 

640 REM ••••••••••*••••*•••• 

650 REM - STAMPA GRIGLIA • 

660 REM • I NTR0DU2 SISTEMA • 

670 REM 

680 : 

690 PRINT CHRSC 1463 ; X1SX2SX2SX3SX2SX2SX2SX4S 
73 CK-1 : FOR J-l TO PR : CK-CK+ 1 
710 PRINT X5SSPSSPSX5SSPSSPSSPSXSS 
720 IF CK-4 ANO J<UX THEN 740 
•30 NEXT J : BOTO 7S0 

740 PRINT XASX2SX2SX6SX2SX2SX2SXBS: CK-1: BOTO 730 
750 PRINT X7SX2SX2SXSSX2SX2SX2SX8S 
760 POKE 211,0: POKE 214,3>SYS 58640 
770 CK-1: FOR J-l TO PR:CK-CK*1 
780 AS-MIDSCSTRSC J3 , 2, 23 : PRINT CHRSC2S3;AS 
730 IF CK-4 AND J<UX THEN 810 
800 NEXT J : GOTO 880 
310 PRINT CHRSC 173 ;: CK-1: BOTO 800 
820 : 

830 REM •»•••»••••••••••• 

840 REM - INPUT • 

050 REM - SISTEMA BASE • 

660 REM —•••••••••*•«•• 

870 : 

eaa gosub 1240 stampa finestra uioeo 

43 PRINT CHRSC133CHRSC173CHRSC173 : PRINT IABC163 "INSERISCI IL SISTEMA* 
900 PRIMI TABC163 *E PREMI RETURN DOPO": PRINT TABC153 "OGNI PRONOSTICO" 
910 PRINT:PRINT TAB C 16 3 ; CHRSC 183 ; " ‘DEL * ” ; CHRSC 1463 : " PER CORREGGERE" 

320 POKE 81 1,4: POKE 214, 3: SYS SB640 
330 CK-1: FOR J-l TO PR 
940 PRINT BSCJ3 ; : POKE 204,0:POKE 198,0 
350 UIS-BSCJ3 


960 GEI AS.1F AS-CHRSC 13) AND USO"" THEN 1090 

970 IF AS-CHRSC 20) AND USO** THEN 1050 

980 IF ASO “1 " AND ASO*X" AND 'ASO "g" THEN 960 

990 IF LENCUS3-3 THEN 960 

1000 IF WS-”" THEN 1040 

1010 FOR K-l TO LENCUS ) 

1020 IF MIDSCUS,K,1)-AS THEN 1150 
1030 NEXT K 

1040 PRINT AS; :US-US+AS:BOTO 960 

1050 POKE 204 , 1 : POKE 207,0:IF LENCUS3-3 THEN PRINT X5S;:S0T0 1070 
1060 PRINT SPS; 

1070 PRINT CHRSC 1573CHRSC 157) ; SPS; CHRSC157) j : POKE 204.0 

1080 US-LEFTSCUS,LENCUS)-1):B0T0 960 

1090 POKE 204 , 1 : POKE 207,0: IF LENCUSX3 THEN 1110 

1100 PRINT X5S : GOTO 1120 

1110 PRINT SPS 

1120 CK-CK+1: IF CK<4 OR J>-UX THEN 1140 
1130 POKE 214 , PEEKC 2143+1 : CK-1 

1140 POKE 211 , 4: SY5 5B640: BSC J3-US: NEXT JtBOTO 1380 
1150 POKE 204,1: POKE 207,0 

1160 POKE 211 , 4 : SYS S8640:PRINT SPSSPSSPSX55S ; : POKE 211,4:SYS 58640 
1170 POKE 204,0: US-"": BOTO 960 

1180 : 

1190 REM »»»»» •— MMM>M 
1200 REM • STAMPA LA • 

1210 REM • F I NESTRA-U IDEO • 

1220 REM ••••••••••••••*«•• 

1230 : 

1240 PRINT CHRSC193CHRSC 17DCHR5C 17) ; 

1250 PRINT TABC15);X1S; : FOR J-l TO 20: PRINT X2S;:NEXT J: PRINT X4S 
1260 FOR J-l TO 8:PRINT TABC15) ;X5S; : FOR K-l TO 20:PRINT SPSj:NEXT K 
1270 PRINT X5S : NEXT J 

12B0 PRINT TABC1S) ; X7S; : FOR J-l TO 20:P1I.NT X2S;:NEXT J:PRINT XBS : RETURN 
1290 : 

1300 REM 

1310 REM • CANCELLA FINESTRA • 

1320 REM ••••••••••••••••••♦*• 

1330 : 

1340 PRINT CHRSC 193CHRSC 173CHRSC 17) 

1350 FOR J-l TO B 

1360 PRINT TABC16) ; : FOR K-l TO 20:PRINT 9PS ; :NEXT K: PRINT: NEXT J 
1370 RETURN 

1380 GOSUB 1340 CANCELLA FINESTRA 
1390 PRINT CHRSC 195CHRSC 173CHRSC17) 

1400 PRINT TABC16) "CONFERMI CS/N)?":POKE 198,0 
1410 GET AS : IF AS-"S” THEN 1550 
1420 IF AS-"N" THEN 1440 
1430 BOTO 1410 

1440 PRINT CHRSC14S) ;TABC16) "CORREGGI FOR J-l TO 7:PRINT SPS; : NEXT JiPRINT 
1450 PRINT: PRINT TABC 16) ; CHRSC 1B) ;" 'RETURN 1 " ;CHRS( 1463 ; 

1460 PRINT " CONFERMA." 

1470 BOTO 920 
1480 : 

1490 REM •••••••*••••••••••• 

1500 REM • CALCOLO NUMERO • 

1510 REM • DOPPIE E TRIPLE • 

1520 REM • NEL SISTEMA • 

1530 REM 
1540 : 

1550 TR-0: DP-0 

1560 FOR J-l TO PR:A-LENCBSCJ3) 

1570 IF A— 1 THEN 1600 
1580 IF A-2 THEN DP-DP+1 
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ISSO IF A-3 THEN TR-TR+1 
:5SO NEXT J 

1S10 SYS 43153,2920: READ NR 

1620 : 

1630 REM 

1640 REM • UERIFICA LA • 

ISSO REM • DISPONIBILITÀ 1 DEL • 

ISSO REM • RIDUTTORE • 

1670 REM 
1680 : 

1690 US-”":IF TR-0 THEN 1710 
1700 WS-MIOSCSTRSCTR) , 2 , 2)+ "T" 

1710 IF DP-0 THEN 1730 

1720 UIS-UJS+M I DS C STRSC DP ) , 2 , 2 ) •*• "0 " : REM COMPOSIZIONE DEL SISTEMA 

1730 FOR J-l TO NR 

1740 READ AS, AD: IF AS-US THEN 1850 

1750 NEXT J : GOSUB 1340 

1760 POKE 211,19: POKE 214, 3: SYS 58640 

1770 PRINT "RIDUTTORE NON":PRINT TABC20) "DISPONIBILE! “: PRINT : PRINT 

1700 PRINT TABC 19); CHRSC 18): "PREMI UN TASTO* ; CHRSC 146) : POKE 198,0:UAIT 198,1 

1730 BOSUB 1 340 : POKE 2U,16:P0KE 214,4:SYS SB640:GOTO 1440 

1B00 : 

1810 REM •••••••••••••••••••••• 

1820 REM • QUADRO INFORMATIUO - 

1830 REM •*•••••*•••••••••••••• 

1840 : 

1550 GOSUB 1340 CANCELLA FINESTRA 

1960 PDXE 211, 18: POKE 214, 3: SYS SB640 

1870 PRINT "SISTEMA DA: ": PRINTTABC16) ; TR; "TRIPLE E" 

1980 PRINT TA8C16);DP: "DOPPIE. ': PRINT: PRINT TABC16) ; 

ISSO PRINT "INTEBRALE: " j INTC3tTR*2TDP) ; "COL . " 

1900 PRINT TABt 18); CHRSC 1B) ; "RIDOTTO 

1910 SYS 49152, AD: READ NC : REM NUMERO COLONNE DELLA RIDUZIONE 

1920 PRINT NC: PRINT: PRINT TABC 16) "PREMI UN TASTO. ":POKE 198.0-.WAIT 198,1 

1930 GOSUB 1340 CANCELLA FINESTRA 

1340 POKE 211, 18: POKE 214.3.-SYS 58640 

1950 PRINT “UUOI LA RIDUZIONE?" : POKE 196,0 

I960 GET AS: IF AS-"S” THEN 1990 

1970 iF AS-"N" THEN RUN 

I960 GOTO 1960 

1990 PRINT CHRSC 145) ; TABC 18) ; CHRSC 18) ; “ SELEZIONE OUTPUT : " 

2000 PRINT TABC 16) i : FOR J-l TO 20:PRINT X2S;:NEXT J:PRINT 
2010 PRINT: PRINT TABC16)i”l> UIDEO" : PRINT TABC 18) ; "2> STAMPANTE" 

2020 PRINT TABC 18) i "3> NASTRO' : PRINT TABC 16) j M 4> DISCO" 

2030 PRINT TABC 16) : "S> RESTART" : POKE 198,0 
2040 : 

2050 REM •••••••••••••••••« 

2060 REM • SELEZIONE DELLA • 

2070 REM • PERFERICA DI • 

2080 REM • OUTPUT. • 

2090 REM 
2100 : 

2110 FOR J-l TO 16: TRC J)-0: DPC J)-0: NEXT J 

2120 GET AS : IF AS-"1" THEN OPEN 1,3:G0T0 2200 

2130 IF AS-"2" THEN 2180 

2140 IF AS--3" THEN 0U-1:G0T0 2540 

2150 IF AS-"4" THEN DU-B:GOTO 2540 

2160 IF AS--S" THEN RUN 

2170 GOTO 2120 

2180 OPEN 1,4,7: CLOSE lilF ST<>0 THEN PCKE 19B,0:GOTO 2120:REM NOT READY 
2190 OPEN 1.4 

2200 PRINT CHRSC 147) ; : SYS 49152, AD+10 
2210 K— 1 : LN-1 : CL-1 
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2220 WS-"":Tl-0:Dl-0 

2230 IF TR-0 THEN 2250 

2240 FOR Z-l TO IR : READ TRCZ3:NEXT Z 

2250 IF DP-0 THEN 2270 

2250 FOR Z-l TO DP : READ 0PCZ3:NEXT Z 

2270 FOR J-l TO PR 

2200 IF LENCBSC J3 3—1 THEN WS-WS+BSCJ3 :BOTO 2320 

2230 IF LENC BSC J3 3-2 THEN Dl-Ol + 1 : WS-US+MIDSCBSC J3 , DPCD1 3 , 1 3 : GOTO 2320 
2300 IF LENCBSC J3 3-3 THEN Tl-Tl + 1 : US-WS+MIDSC8SC J3 , TRCT1 3 , 1 3 : GOTO 2320 
2310 PRINT "ERRORE! “: STOP 
2320 NEXT J: IF GX-1 THEN GK-O: RETURN 

2330 PRINTH1 , US ; : K-K+l : IF K-3 THEN K-l : °RINT*1 : BOTO 2420 

2340 PRINT«l.TABC203j 

2350 CL-CL+1 : IF CL>NC THEN 2410 

2360 GET AS:IF ASO ” “ THEN 2380 

2370 GOTO 2220 

23B0 GET AS:IF A*-"-" THEN 2410 
2330 IF AS— "" THEN 2300 
2400 GOTO 2220 

2410 PRINTS1 : CLOSE IrBOTO 2440 

2420 LN-LN+1 : IF LN-S THEN LN-1:PRINT#1 

2430 BOTO 2350 

2440 PRINT CHRSC 17) s "PREMI UN TASTO*; : POKE 1S0,0:UIAIT 130,1 

2450 PRINT CHRSC 1473 :GOSUB 1240:POXE 211,16:P0KE 214,4:SYS S0640:GOTO 1330 

2460 : 

2470 REM •••••••••••••**•• 

2400 REM • REGISTRAZIONE • 

2430 REM * DELLE COLONNE • 

2500 REM • SU SUPPORTO • 

2510 REM • MAGNETICO • 

2520 REM ••••••••••••••••• 

2530 : 

2540 IF OU-1 THEN 2S60 

2550 OPEN 1,0, 12: CLOSE 1:IF ST<>0 THEN POKE 130,0: BOTO 2120: REM NOT READY 
2550 PRINT CHRSC 1473 ; "NOME FILE: " ; : GOSUB 4630 
2570 IF DU-1 THEN OPEN 1 . 1 , 1 , NFS : GOTO2E30 
2500 OPEN 1,8,12, NFS+* , S, W“ 

2530 POKE 204 , 1 : POKE 207,0:PRINT CHRSC1473 "ATTENDI . " 

2600 PRINTS1 , "T0T16 . D" : REM SIGLA DI RICONOSCIMENTO 

2610 PRINTSl , PR : PRINTS1 ,NC: REM MEMORIZZA NUMERO PRONOSTICI E NUMERO COLONNE 
2620 FOR J-l TO PR: PRINTSl . BSCJ3 : NEXT J : REM MEMORIZZA IL SISTEMA-BASE 
2630 : 

2540 REM 

2650 REM • SALUATAGGIO SU • 

2660 REM • SUPPORTO MAGNETICO • 

2670 REM • COLONNE SELEZIONATE» 

2600 REM •••••••••••••••••*•••• 

2630 : 

2700 CL-1 : OT-0: SYS 49152, AD»1 : BY-0 

2710 GK-1: GOSUB 2220REM CARICA IN 'US' UNA COLONNA 
2720 FOR J-l TO PR 

2730 IF MIDSCUS, J,13-*l" THEN A-l:GOTO 2030 
2740 IF MIDSCUS, J.13—X" THEN A-2:G0T0 2030 
2750 A-3 
2760 : 

2770 REM . 

2700 REM • CODIFICA SEGNI • 

2730 REM • A COPPIE DI • 

2800 REM • BITS • 

2810 REM •••••••••»•«♦.». 

2020 : 

2030 IF BY-0 THEN 2850 
2B40 A-A»4TBY 

2850 QT-OT OR A: BY-BY+1 : IF BY-4 THEN BY-0: GOSUB 2310 
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2060 NEXT J:CL-CL+1:IF CL>PR THEN 2080 

2870 BOTO 2710 

2880 IF BY-0 TKEN 2900 

28S0 GOSUB 2910 

2900 CLOSE 1 : BOTO 2450 

2910 PRINT#1.CHR*CQT); :QT-0: RETURN 

2920 DATA 14: REM NUMERO RIDUTTORI PREUISTI 
2930 : 

2940 REM ••••••••••••••••*• 

2950 REM • ELENCO SISTEMI • 

2960 REM • PREUISTI * 

2970 REM •••••••••••••••••• 

2990 DATA 30 . 3070 .40,3110,50,3170,60, 3260 , 7D , 3400 . 3T , 3580 . 4T . 3650 
3000 DATA 1T20, 3760. 1T4D, 3810. 2T1D. 3910, 2T20. 3970, 2T4D, 4050 
3010 DATA 3T1D, 4270, 3T3D, 4380 
3020 : 

3030 REM •••••••••••••••••••• 

3040 REM • ELENCO RIDUZIONI • 

3050 REM ••••••••••••••*••••• 

3060 : 

3070 DATA 2: REM COLONNE PER 3 DOPPIE 
3080 DATA 1,2,2 
3090 DATA 2,1,1 
3100 : 

3110 DATA 4: REM COLONNE PER 4 DOPPIE 

3120 DATA 1.1, 1.1 

3130 DATA 1.1, 1.2 

3140 DATA 2,2,2, 1 

3150 DATA 2, 2. 2. 2 

3160 : 

3170 DATA 7 -.REM COLONNE PER 5 DOPPIE 

3180 DATA 2, 1,2, 2,1 

3190 DATA 1,2, 2. 2.1 

3200 DATA 2,2,2, 1.2 

3210 DATA 1.1. 2, 2. 2 

3220 DATA 2.2, 1,2,2 

3230 DATA 1.1. 1,1,1 

3240 DATA 2, 2. 1,1, 2 

3250 : 

3260 DATA 12: REM COLONNE PER 6 DOPPIE 

3270 DATA 1,1, 1,1, 1,2 

3280 DATA 2, 2, 2. 2, 1,8 

3290 DATA 1,1, 1,1, 2,1 

3300 DATA 2, 2, 2, 2. 2,1 

3310 DATA 1,1, 1,2, 1,1 

3320 DATA 2,2,2, 1,2,2 

3330 DATA 1,2, 2, 1,1,1 

3340 DATA 2. 1,1, 2. 2. 2 

3350 DATA 1,1, 2. 2. 2. 2 

3360 DATA 2, 2, 1,1, 1,1 

3370 DATA 1,2, 1,2, 2, 2 

3380 DATA 2. 1,2, 1,1,1 

3330 : 

3400 DATA 16: REM COLONNE PER 7 DOPPIE 

3410 DATA 1,1, 2, 1,1, 1.1 

3420 DATA 2, 2. 2. 2. 1,1,1 

3430 DATA 2, 1 . 1 . 1 . 2, 1 . 1 

3440 DATA 1,2, 1.2, 2. 1,1 

3450 OATA 2, 2. 1.1. 1,2.1 

3460 DATA 1.2. 2. 1.2, 2,1 

3470 DATA 2, 1 , 2 , 2 , 2, 2, 1 
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3*80 DATA 1,2. 1,1, 1,1, 2 
3490 DATA 2, 1 , 1 , 2. 1 , 1 , 2 
3500 DATA 2. 2, 2, 1,2, 1,2 
3510 DATA 1,1, 2. 2, 2.1. 2 
3S20 DATA 2, 1 , 2. 1 , 1 , 2, 2 
3530 DATA 1,2, 2. 2, 1,2. 2 
3540 DATA 1 , 1 . 1 . 1 . 2. 2. 2 
3550 DATA 2.2, 1 .2.2, 2 ,2 
3560 DATA 1 , 1 , 1 . 2. 1 . 2 , 1 
3570 i 

3S80 DATA 5: REM COLONNE PER 3 TRIPLE 

3590 DATA 2,3,1 

3600 DATA 3,1,2 

3610 DATA 3,2,3 

3620 DATA 1,1,3 

3630 DATA 1,2,2 

3640 : 

3650 DATA 9: REM COLONNE PER 4 TRIPLE 

3660 DATA 1,1, 1.1 

3670 DATA 1,2, 2, 3 

3680 DATA 1.3, 3, 2 

3690 DATA 2, 1,2,2 

3700 DATA 2,2,3, 1 

3710 DATA 2,3, 1,3 

3720 DATA 3, 1,3,3 

3730 DATA 3.2. 1,2 

3740 DATA 3,3,2, 1 

3750 : 

3760 DATA 3: REM COLONNE PER 1T+2D 

3770 DATA 1,2,1 

3780 DATA 2,1,2 

3790 OATA 3,2,1 

3800 : 

3810 DATA B: REM COLONNE PER 1T+40 

3B20 DATA 1.1. 1,1,1 

3830 DATA 2,1, 1,2,2 

3840 DATA 3, 1,2, 2.1 

3850 DATA 1,2, 1,2,1 

3B60 DATA 2, 1,2, 1.2 

3870 DATA 3. 2, 1.1, 2 

3800 DATA 1,2, 2, 2. 2 

3890 DATA 2, 2, 2, 1.1 

3900 i 

3910 DATA 4: REM COLONNE PER 2T+1D 

3920 DATA 1,1,1 

3930 DATA 2,2,2 

3940 DATA 3,3,1 

3950 DATA 1,1,2 

3960 : 

3970 DATA 6: REM COLONNE PER 2T+2D 

3980 DATA 1,2, 1,2 

3990 DATA 2. 1,1,1 

4000 DATA 3.3. 1.2 

4010 DATA 1,3,2, 1 

4020 DATA 2, 1,2,2 

4030 DATA 3,2,2, 1 

4040 : 

4050 DATA 20 : REM COLONNE PER 2T+4D 

4060 DATA 1,1, 1,1, 1.2 

4070 OATA 2. 2. 2. 2, 2,1 

4080 DATA 3,3,1, 1,2,1 

4090 DATA 1.3, 1,1, 1.2 

4100 DATA 2, 2, 2. 2. 1.2 


4110 DATA 3. 1.1.1, 2.1 
*4120 DATA 1.1.2, 2. 1,1 
4130 DATA 2.2. 1,1, 2. 2 
4140 DATA 3,3,2, 2. 2. 2 
4150 DATA 1.3. 2. 2, 2. 2 
4160 DATA 2. 2. 1.1, 1,1 
4170 DATA 3, 1,2,2, 1,1 
4160 DATA 1.2, 1.2, 2.1 
4130 DATA 2. 3. 1.2. 1.1 
4200 DATA 3. 2, 1.2. 1.2 
4210 DATA 1,2, 2. 1,2,1 
4220 DATA 2. 1,2, 1.2. 2 
4230 DATA 3,2.2, 1,1,2 
4240 DATA 2, 1.1, 2, 2. 2 
4250 DATA 2, 3.2, 1,1,1 
4260 : 

4270 DATA 3: REM COLONNE PER 3T+1D 
4280 DATA 1,1, 1,1 
4230 DATA 2, 2, 2.1 
4300 DATA 3,3,3, 1 
4310 DATA 1,2, 3. 2 
4320 DATA 2, 3, 1,2 
4330 DATA 3, 1.2.2 
4340 DATA 1.3, 2.1 
43S0 DATA 2. 1.3,1 
'4360 DATA 3, 2. 1,1 
4370 : 

43B0 DATA 24 -.REM COLONNE PER 3T+3D 

4330 DATA 1.3. 2. 1.1. 2 

4400 DATA 2, 1,3, 1.1, 2 

4410 DATA 3. 3, 3. 2, 1.2 

4420 DATA 1,1, 1,2, 1.2 

4430 DATA 2. 2. 2. 2, 1,2 

4440 DATA 3. 1.2. 1.2. 2 

4450 DATA 1,2. 3. 1.2,2 

4460 DATA 2.3, 1,1, 2. 2 

4470 DATA 2. 2. 2. 1,2,1 

4480 DATA 3. 1,2, 2. 1.1 

4430 DATA 1.2, 3, 2, 1,1 

4500 DATA 2. 3, 1.2, 1,1 

4510 DATA 3, 1.2. 2. 2. 2 

4520 DATA 1,2, 3, 2. 2. 2 

4530 DATA 2,3, 1,2, 2. 2 

4540 DATA 3, 2, 1,1, 1,1 

4550 DATA 3. 1.2, 1,1,1 

4560 DATA 1.2, 3, 1,1,1 

4570 DATA 2. 3, 1,1, 1,1 

4580 DATA 3.2. 1,2, 2.1 

4530 DATA 1,2, 3, 2, 2,1 

4600 DATA 2, 1,3, 2. 2.1 

4610 DATA 3. 3. 3. 1,2,1 

4620 DATA 1.1, 1,1, 2,1 

4630 PQKE 204.0.POKE 1 38 , 0 : NFS- " * : REM INPUT NOME FILE CONTROLLATO 
4640 6ET A*;IF AS-*“ THEN 4640 
4650 A-ASCCAS1 

4660 IF AS-CHRSC20) AND LENCNF*1>0 THEN 4730 
4670 IF AS-CHR0C13) AND LENCNF*)>0 THEN RETURN 
4680 IF LENCNFS1-16 THEN 4640 

4630 IF A*-"." OR AS-V OR AS-”C“ OR AS'*"!" THEN 4720 
4700 IF CA>64 AND A<31) OR CA>47 AND A<58) THEN 4720 
4710 BOTO 4640 

4720 PRINT A* ; : NFS-NF**AS : BOTO 4640 
4730 PQKE 204 , 1 : PQKE 207,0:PRINT " 101 IT; 

4740 NFS-LEFTSCNFS,LENCNFSJ-1):P0KE £04.Ò:SOTO 4640 
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Alla ricerca 
della colonna perduta 

Come rintracciare rapidamente le colonne 
contenenti i punteggi realizzati 


D opo aver sviluppato i sistemi 
servendosi dei programmi pubblicati 
(ed averli convalidati in una ricevito- 
ria Totocalcio. Totip od Enalotto) ec- 
co che la domenica sera, magari do- 
po aver passato uno stressante pome- 
riggio aggiornandosi di continuo sui 
risultati delle partite, ci si trova a do- 
ver controllare i punteggi realizzati e. 
in caso di vincita, a rintracciare la co- 
lonna. o le colonne, vincenti. 

Per sfruttare il programma Tot 
Controller" è chiaramente necessa- 
rio che. sviluppando un sistema con 
uno qualsiasi dei programmi di que- 
sto fascicolo, si registrino le colonne 
selezionate su supporto magnetico. 

Successivamente, quando sarete a 
conoscenza della colonna vincente, 
il programma caricherà il file regi- 
strato in precedenza e ne analizzerà 
il contenuto. 

Un'ulteriore avvertenza: quando 
trascrivete le colonne sulle schedine, 
dovrete fare attenzione a riportarle 
nell'esano ordine con cui vengono vi- 
sualizzale (o stampate) dal compu- 
ter. evitando eventuali "accorpa- 
menti". 


Questo vuol dire che se tra le colon- 
ne da giocare si presentano le se- 
guenti... 

a) 1X21 11X1121 IX 

b) 1X21 i 121 121 IX 

-anche se vi accorgete che è possibile 
accorparle in una colonna della 
schedina- 

/ 

X 

2 

1 

1 

1 

X2 

1 

1 

2 

1 

1 

X 

...dovrete in ogni caso trascriverle 
entrambe. 

Ovviamente, per rintracciare una 
data colonna, è necessario, nei tra- 
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CONFERMI 
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scriverle, numerare progressivamen- 
te le schedine stesse! 

Tot controller" permette, inoltre, 
di conoscere anche il solo numero 
complessivo di punti totalizzati 10. 
11. 12, 13. 14. 15 e 16: oppure sapere 
anche quali schedine contengono le 
vincite via via individuate eia colon- 
na all'interno delle quali queste si 
trovano. 

Inoltre, se si sceglie la seconda op- 
zione. è possibile anche indicare i 
punteggi che si vogliono ricercare, e- 
vitando continue interruzioni ogni 
volta che viene trovata una vincila 
supcriore 8 9 punti. 


Il programma 

Dato il RUN. dovrete digiure il no- 
me del file, ed indicare, come di soli- 
to. la periferica usata. 

Terminato il caricamento delle co- 
lonne, dovrete inserire la colonna 
vincente, c successivamente digitare 
“N~ per ripetere l'inserimento oppu- 
re “S" per confermare. 

E* giunto il momento di scegliere 
come effettuare la selezione: è possi- 
bile avere solo i touli delle vincite o 
vederle una per una. di volU in volta 
che vengono individuate. 

Premendo il tasto “2" a computer 
controllerà tutte le colonne in memo- 
ria e le confronterà con quella vin- 
cente. Al termine del lavoro, peraltro 
estremamente breve grazie alle routi- 
ne in linguaggio macchina, verrà 
sUmpato, sul video, un “riassunto" 
delie eventuali vincite rintracciate 
(da 10 a 16 punti). 

Premendo, invece, il tasto T si ha 
la possibilità di vedere, ogni qualvol- 
U se ne trova una. in quale schedina 
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PREMI UH TASTO. 


si uova la colonna vincente, ed in 
quale colonna della stessa 
Inoltre bisognerò selezionare le 
vincite da individuare, evitando l'in- 
terruzione del programma cigni volta 
che viene individuata una vincita che 


non interessa (ad esempio un 10. se le 
colonne giocate si riferiscono al 
Totocalcio). 

Per selezionare le vincite da ricer- 
care. basta posizionare la freccia, che 
appare al di sotto dei numeri delle 


vincite, mediante i tasti cursore: in 
seguito premere Return: la cifra del 
punteggio selezionato verrò stampa- 
la in campo inverso. 

Analogamente, per annullare la se- 
lezione per la ricerca di un punteg- 
gio. basterà posizionarsi con la frec- 
cia sotto di esso c premete Return; il 
numero della vincita tornerò in cam- 
po normale. 

Quando si è sicuri dell'esattezza 
delle selezioni effettuate, premendo 
il tasto di freccia a sinistra si dà il via 
alla tanto attesa ricerca. 

Il programma si arresta ogni volta 
che trova una vincita tra quelle sele- 
zionate: quindi visualizza il punteg- 
gio trovato, il numero della schedina 
c quello della colonna nella quale si 
trova la colonna vincente. 

In questi casi, per riprendere l'ese- 
cuzione. basta premere un tasto 
qualsiasi. 

E' bene notare che. anche se si sele- 
ziona la ricerca di un solo punteggio 
(ad esempio il 1 2). dopo la stampa del 
numero di schedina delle colonne 
con 1 2 punti, alla (Ine si avrò comun- 
que il riassunto, che comprende tutte 
le vincite (da IO a 16 punti). 

Una volta terminata un'elaborazio- 
ne è possibile, premendo ” 1 ". eseguir- 
ne altre, mentre con “2“ si esce dal 
programma. 

Nel caso di desideri effettuare altre 
elaborazioni, il computer chiederò se 
utilizzare lo stesso sistema o caricar- 
ne un altro: quindi si ripete la se- 
quenza di operazioni descritta. 


100 RETI TOT-CONTROLLER 
180 REM VERSIONE PER C-641 
130 REM 

140 REM BY ANTONIO PASTORELLI 

850 : 

840 REM ••••••••••••••••••• 

860 REM • FISSA TOP BASIC • 

890 REM 

890 POKE 800 , 585 : 6DSUB S0000 CARICA ROUTINES L/M 
300 POKE 56.48: POKE 55. 0: CLR: POKE 677. 4P: POKE 676,0 
380 Din CUSC 16) , PUC 161 
340 : 

360 REM ••••••••••••••••••••••••• 

390 REM • DEFINIZIONE CARATTERI • 

400 REM 

480 : 

440 XlS-CNRS(ei3)iX8*-CHRSC198):X3S-CHRSC178):X4S-CHRSCS01):REM “ , - -r •>' 
460 X5S“CHR*C8S1) : X6#“CHRSCS19) : X75”CHSSC£08) : X8S-CHRSCS03) : REM - | + «■ *»* 
4B0 X9S—CHRSC 177) :XAS"CHRS( 171) : XES-CHRSC 179) : REM -I" 


102 


500 SPS-CHRSC32):REM SPACE 

520 : 

540 POK E53280 . 0 : P0KE5328 1 . 0 : PR I NTCHRS C 28 ) 

560 PRI NTCHRS C 142)CHRS(8)CHRSC 147) : PRINTTABC6) “SYSTEMS EDITORIALE PRESENTA: 
580 FORJ-1TQ10: PRI NTCHRS C 173 : NEXT : PRINT7 ^BCS) "BY : ANTONIO PASTORELLI" 

600 CO-3 

620 P0KE21 1.13: P0KE214 .11: SYS58640 

640 CO-CO+1: IFC0>15THENC0-2 

660 P0KE646 . CO : PR1 NT “TOT-CONTROLLER " 

680 IFPEEKC1S7)O64THEN720 
700 GOTO620 

720 PRINT CHRSC 147) ; CHRSC 159) j "NOME FILE >« SPCC17) "<" 

740 PRINT CHRSC 145) ; TABC 11 ) ; : POKE 204,O:SOSUB 3040:REM ••INPUT NONE FILE-»* 
760 POKE 204,1: POKE 207.0 

780 PRINT CHRSC 147) ; CHRSC 34) ; NFS ; CHRSC 34) : PRINT" SI TROUA SU “j 
800 PRINT CHRSC 18) ; “N" ; CHRSC 146) ; "ASTRO 0 CHRSC 18) ; 

820 PRINT "D" ; CHRSC 146) j " ISC07" 

840 6ET AS : I F AS-"N“ THEN OPEN 1 , 1 , 0 , NFS: GOTO 840 
860 IF AS-“D" THEN 800 
880 GOTO 840 

300 OPEN 1,8, 12: CLOSE 1:IF ST<>0 THEN U40 
920 OPEN 1,8, 12, NFS*" , S , R" 

S40 REH 

360 REH •• RICONOSCIMENTO FILES •• 

380 REM 

1000 CKS-"' 1 : FOR J-l TO 7 

1020 GET*1,AS:IF AS-"“ THEN 1020 

1040 CKS-CKS+AS:NEXT 

1060 IF CKS-"T0T16.D" THEN 1180 

1080 PRINT CHRSC 1471CHRSC 1B) " QUESTO NON E‘ UN FILE DI ‘TOT 16 PLUS' " 

1100 FOR J-l TO 5 : PRINT CHRSC 13) : NEXT: PRINT'PREMI UN TASTO." 

1120 CLOSE 1 : POKE 138,0 
1140 GET AS: IF AS-"" THEN 1140 
1160 CLR : GOTO 300 

1180 INPUTS1 , PR.CO: REM INPUT NUMERO PRONOSTICI E COLONNE 

1130 FOR J-l TD PR: INPUTS1 . AS : NEXT 

1200 POKE 43152, PR 

1220 GOSUB 30000 

12B0 KL-C0*PR/4 

1300 IF KL-INTCKD-0 THEN KL-INTCKL) : GOTO 1340 

1320 KL-INTCKD-H 

1340 L0-PEEKC676)+256*PEEKC677) 

1360 FOR J-l TO KL 

1380 GETS1 , AS: POKE LO, ASCCAS) : L0-U>1 
1400 NEXT J: CLOSE 1 

1420 PRINT CHRSC 147) CHRSC 18) " INTRODUCI LA COLONNA UINCENTE 
1440 : 

1460 REM STAMPA GRIGLIA COLONNA UINC 
1480 » 

1500 IF PR< 14 THEN UX-12:G0T0 1540 
1520 UX-13 

1540 PR I NT "SfiW’ ; X 1 S ; X2S ; X4S : X-0 : FOR J-l TO PR 

1560 PRINT XSS ; SPS ; XSS : X-X*l ; I F X>2 ANO J<UX THEN X-0:GOTO 1600 
1580 NEXT: PRINT X7S ; X2S ; X8S : GOTO 1620 
1500 PRINT XAS ; X2S ; XBS : GOTO 1580 
1620 PRINT "ateftttM"; 

1640 POKE 138,0 

1660 X-0: FOR J-l TO PR-.POKE 204,0 
1680 GET AS 

1700 IF AS-"1" OR AS-"X" OR AS-"2" THEN 1740 
1720 GOTO 1680 

1740 CUSC J)-AS: POKE 204,1:POKE 207.0:PRINT AS; CHRSC 17)CHRSC1S7) ; 


1760 X-X-1:IF X>8 AND J<UX THEN X-0: PRINT CHRSC 173 ì 
1780 NEXT 

1B00 PRINT: PRINT "CONFERMI CS/N3?"; 

1850 GET AS:IF AS-"S*' THEN 1B80 
1840 1F AS-"N" THEN 1480 
1BB0 BOTO 1880 

1880 FOR J-49800 TO 43806: POKE J,0:NEXT J 

1300 POXE 48807 , PEEXC6763 : POXE 49808 , PEEXC6773 : POXE 43803,0 
1980 : 

1940 REM •••••••••• 

1960 REM • SCRIVE COLONNA VINCENTE • 

1900 REM 


8080 FOR J-l TO PR 
8040 IF CUSCJ3-"1" THEN CV-1 
8060 IF CVSCJ3-"X” THEN CV-8 
8080 IF CVSCJ3--8" THEN CV-3 
8100 POXE 49165+ J , CU: NEXT J 
8180 POXE 43783,0 

8140 PR1NT CHRSC 1473CHRSC 18) “ MODALITÀ’ DI RICERCA 

8160 PRINT: PRINT 

8180 PRINT“1> VISUALIZZAZIONE PARZIALI E RIASSUNTO" 

8800 PRINT"S> V I SUAL I ZZA2 1 ONE SOLO RI ASSUNTO' : POXE 198,0 
8880 GET AS:IF AS-' l” THEN POXE 49800 . 0 : GOSUB 3340 -.GOTO 8880 
8840 IF AS-"8" THEN POXE 49800.1 :GOTO 8880 
8860 GOTO 8880 

8880 POXE 49801, 0:SYS S0088: IF PEEXC498013-1 THEN BX-1:B0T0 8680 
8300 JF PEEXC49783)-1 THEN 8600 
8380 PRINT CHRSC 1471 

8340 NMS-"". FOR J-4971S TO 49788: MMS-MMS+CHRSCPEEKC J3 3 :NEXT:MM-C0-VALCrR1Sl 
8360 XX-MM/4: IF XX-INTCXX3-0 THEN 8400 
8380 XX-INTCXK3+1 

8400 IF MM/4-INTCMM/43-0 THEN XL-4 : G0TO8443 
8480 XL“CMM/4-INT<HM/433»4 
8440 PRINT "SCHEDA NUMERO ’ 

8460 PRINT “COLONNA NUMERO * 

8480 PRINT "PUNTI PEEKC 491853 

8500 PRINT:PRINT -.PRINT 

8580 PRINT "PREMI UN TASTO PER CONTINUARE! “ 

5540 POXE 196,0: UA I T 198,1 
8560 IF CX-1 THEN CX-0: RETURN 
8500 GOTO 8880 

• 8600 JP-PEEXC491B83: IF PUCJP1-1 THEN C>1:G0SUB 8380 
8680 PRINT CHRSC 1473CHRSC1B3“ RIASSUNTO PUNTEGGI TOTALIZZATI 
8688 IF BX-0 THEN 8680 

8640 PRINT CHRSC1B3 "RICERCA NON TERMINATA PER PRESSIONE" 

8660 PRINT CHRSC 16) "TASTO ’STOP’ 

8680 PRINT: PRINT 
8700 FOR J-10 TO PR 

8780 IF PEEXC 49800 3-1 THEN GOSUB 3980: GOTO 8760 
8740 IF PUCPU3-1 THEN GOSUB 33B0 


8780 PRINT; PRINT : PRINT'PREMI UN IASTO.":POXE 19B.0:WAIT 198,1 
8800 PRINT CHRSC 1473 ; : FOR J-l TO S: PRINT CHRSC 173 NEXT 
8880 PRINT "1> ALTRI CONTROLLI ": PRINT"8> FINE LAVORO" 

8840 PRINT : PRINT : PRINT"COSA FAI7":P0XE 19B.0 
8860 GET AS: IF AS-"1‘ THEN 8980 

8880 IF AS»"2" THEN PRINTCHRSC 1473 POXE B08.837:END 
8900 GOTO 2860 

8980 PRINT CHRSC 1473 "STESSO SISTEMA?” : POXE 198,0 
8940 GET AS: IF AS-"5“ THEN GOSUB 3O000-.GOTO 1BB0 
8960 IF AS— "N" THEN CLR:GOTO 300 
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2380 BOTO 2340 

3000 REM ••• INPUT NOME FILE ••• 

3020 : 

3040 POKE 190 , 0 : NFS” 

3060 GET AS:IF AS-“" THEN 3060 
3030 A-ASCCAS) 

3100 IF AS-CHRSC20) ANO LENCNFS)>0 THEN 3240 
3120 IF AS-CHRSC13) ANO LENCNFS)>0 THEN RETURN 
3140 IF LENCNFS1-16 THEN 3060 

3160 IF AS-".“ OR AS-V" OR AS-“C" OR AS-”)” THEN 3220 
3180 IF CA>64 AND A<91) OR (A>47 AND A<5B) THEN 3220 
3200 BOTO 3060 

3220 PRINT AS; : NFS-NFS-AS: GOTO 3060 

3240 POKE 204 , 1 : POKE 207.0:PRINT CHRSC 157 ) ; SPS ; SPS : CHRSC 157) ; CHRSC 157) j 
3260 NFS-LEFTSCNFS, LENCNFS)-1) : POKE 204.0:GOTO 3060 
3280 : 

3300 REM SELEZIONE UER I FICHE 
3320 : 

3340 PRINT CHRSC 147 ) CHRSC 18) “ SELEZIONE PUNTEGGI DA CONTROLLARE 

3360 PRINT: PRINT 

3370 FOR J-10 TO 16: PUCJJ-0: NEXT 

3380 PRINT TABC12) X1S;:F0R J-l TO 6:PRINT X2SX3S;:NEXT 
3400 PRINT X2SX4S 

3420 PRINT TABC12) X5S;:F0R J-l TO 7:PR1NT "1" X5S; : NEXT: PRINT 
3440 PRINT TABC12) X5»;:F0R J-10 TO 16: THINT RIGHTSCSTRSCJ) , 1) X53;:NEXT 
3460 PRINT; PRINT TABC12) X7S;:F0R J-l TO 3:PRINT X2SXSS::NEXT 
3480 PRINT X2SX8S: PRINT CHRSC 19) ; 

3500 FOR J-l TO B: PRINT CHRSC17) ;: NEXT: PRINT TABC13) ?T“;:PU-10 
3520 POKE 136.0 

3540 GET AS.IF AS-CHRSC 13) THEN 3640 

3560 IF A»-CHRS(23) THEN 3820 

35B0 IF AS-CHRSC 157) THEN 3B60 

3600 IF AS— H «- ” THEN 3900 

3620 GOTO 3540 

3640 IF PUCPU)-1 THEN 3740 

3660 PRINT CHRSC 145 )CHRSC 1453CHRSC 1453CHRSC 157)CHRSC1B) "1 " : 

3680 PRINT CHRSC 1S7)CHRSC 17) : RIGHTSCSTRS.CPU) . 1 )CHRSC 146) j 
3700 PRINT CHRSC 173CHRSC 17); 

3720 PUCPU3-1 : GOTO 3520 

3740 PRINT CHRSC145)CHRSC145)CHRSC145)CHRSC1S7)“1“; 

3760 PRINT CHRSC1S7)CHRSC 17) ; RIGHTSC5TRSCPU) . DCHRSC 146) ; 

3780 PRINT CHRSC 17)CHRSC 17); 

3800 PUCPU)-0: GOTO 3520 
3820 IF PU-16 THEN 3520 

3B40 PU-PU+1: PRINT CHRSC 157) " " CHRSC29) *t" ; : GOTO 3520 

3860 IF PU-10 THEN 3520 

3880 PU-PU-1 : PRINT CHRSC 157)" " CHRSC 157) CHRSC 157) CHRSC 157) *T" GOTO 3520 
3900 FOR J-10 TO 16: POKE 49144-J . PUCJ) : NEXT: RETURN 

3920 : 

3940 REM STAMPA RIASSUNTO 
3960 : 

3980 PRINT “PUNTI " ; J; " : " ; TABC 14-LENCSTRSCPEEKC49190+J) ) ) ) j 

4000 PRINT PEEKC49130-J) 

4020 RETURN 
29900 : 

29910 REM SCRIUE NR COLONNE DA CONTROLL 
29920 : 

30000 C0S-M1DSCSTRSCC0) , 2, B) : IF LENCCOS)-B THEN 1260 
30010 FOR J-l TO 8-LENCCQS) : COS-“0"+CO£: NEXT J 

30020 FOR J-l TO B : POKE 49714+J , ASCCMIDSCCOS , J , 1) ) :NEXT J : RETURN 
40000 DATA 162 , 7 , 1B9, 51 , 194 , 201 , 48,240 , 4 , 222 , SI , 1S4 , 96 , 169 , 57, 157 
40010 DATA 51.134.202.16.237,96.169.1.141,1.192.169.0.141.30.192 
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40050 DATA 32,58,196,173,55,192, 133, 251 ,173.56,192, 133,252 ,160,0,177 
40030 DATA 251 , 174,57, 192,61 , 54 , 196 , 224 , 0 , 240, 5,74,74, 202 , 208 , 251 
40040 DATA 174,1,192,221,13,192, 208 , 3 , 23B , 30 . 192 , 232 ,142,1,192, 236 
40050 DATA 0, 192,240.5, 144,3,76,200, 195, 23B, 57 , 192, 173 , 57 , 192, 201 
40CGO DATA 3 . 240 ,109.144.187,169.0.141,57,192, 238 ,55,192.173,55,192 
40070 DATA 208,3,238.56.192,76.112, 195.32.B0. 195,162,8,189,50,194 
40080 DATA 201 , 48 , 208 , 24 . 202 . 208 , 246 ,169,1.141,59,194.173,30.192.201 
40090 DATA 10.240,3.176.1,96, 170,254.38, 192,96,96, 173,30, 192,201 
40100 DATA 10.240,15,176,13,169,1.141,1,192,169.0,141,30,192,76 
40110 DATA 169, 195.170,254,38, 192, 173, S7, 192,24, 105, 1 , 141,57, 192,201 
40120 DATA 4.208,16,169,0,141.57.192,238,55,192,173,55,192,208,3 
40130 DATA 238,56,192, 173,136, 194,208,11,174,30, 192,189,248,191,240,3 
40140 DATA 76,235,195,76.102, 195,3,12,48, 192,165,197,201.63,240,1 
40150 DATA 96,169,1,141.137.194,104,104.96 
50000 PRINT CHRSC147) “ATTENDERE 4 SECONDI ' " 

50005 C(C“1 : FOR J-l TO 249 

50010 READ A;CK-CK+A:POKE 49999* J , A : NEX T 

50020 IF CK032433 THEN PRINT "ERRORE IIXLE ISTRUZIONI DATA ! ’’ : END 
50030 RETURN 


1 

2 

3 

4 

5 

6 
7 
B 
3 

10 

11 

ìs 

13 

14 

15 
1B 
17 
1B 
19 

50 

51 
55 

53 

54 

55 

56 

57 
5B 
53 

30 

31 
35 

33 

34 


* PROGRAMMA PER LA VERIFICA DELLE UINCITE 


* 43155 DEVE CONTENERE IL NUMERO DI PRONOSTICI 

* 431BB-491B1 COLONNA UINCENTE 

* 49154-49160 ELENCO PUNTEGGI DA RICERCARE C 10-16) 

* ES: 49154-1 RICERCA PUNTI 10 

* 49160-1 RICERCA PUNTI- 1B 

* 49500/6 RIA3SUNT0 UINICITE PER I PUNTEGGI 10-16 

* DEVONO E99ERE AZZERATI PRIMA DI CHIAMARE 

* LA ROUTINE, 

* 49507/8 PUNTATORI ALL’INIZIO DELLA ZONA DI MEMORIA 

* DOVE SONO PRESENTI LE COLONNE DA CONTROLL . 

* DEVE ESSERE SETTATO ALLA PRIMA 

* CHIAMATA, POI LI AGGIORNA IL PRG 

* 49509 PUNTATORE AL SEGNO ALL’INTERNO DI UN BYTE 

* DEVE ESSERE AZZERATO ALLA PRIMA CHIAMATA DI 

* QUESTA ROUTINE, POI VIENE AUTOMAT . AGBIORN. 

* 49800 SE-0 SI ESCE DALLA ROUTINE OGNI VOLTA CHE SI 

* TROVA UNA COLONNA CON UN PUNTEGGIO 

* SELEZIONATO PER LA RICERCA, IL PUNTEGGIO SI 

* PUD’ LEGGERE NEL BYTE 49185, POI RICHIAMARE LA 

* ROUTINE PER CONTINUARE LA RICERCA. 

* SE-1 SI ESCE DALLA ROUTINE SOLO QUANDO SONO 

* STATE CONTROLLATE TUTTE LE COLONNE, I TOTALI 

* PER I PUNTI 10/16 POSSONO ESSERE LETTI 

* NEI BYTES 49500/49506. 

* 49801 FLAG DI "STOP”, VIENE SETTATO SE IL TASTO 

* "RUN/STOP- E’ PREMUTO. AZZERARE PRIMA DI 

* CHIAMARE LA ROUTINE. 

DECRCOL - SC350 

PUNT - SFB : PUNTATORI ALLA COLONNA 
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35 

35 COLUIN - 49155 

37 UERIF - 49144 

38 

39 TOTAL - 49190 

40 

41 PUNTI - 49192 

42 NPRON - 49152 

43 SEGNO - 49153 

44 PUNTAT - 49207 

45 

46 BYTE - 49209 

47 

48 

49 

50 COLON - 49715 

51 ORG SC3GG 

52 

53 

54 

55 POWERUP LDA #1 

56 STA SEGNO 

57 LDA #0 

58 STA PUNTI 

59 

60 START 

51 JSR KEYB 

62 

63 LDA PUNTAT 

64 STA PUNT 

65 LDA PUNTAT+1 

66 STA PUNT+1 

67 

68 LDY #0 

69 

70 LDA C PUNTI , Y 

71 LDX BYTE 

72 AND TABELLA , X 

73 

74 CPX #0 

75 BEO NODIU 

76 

77 DIUIDE LSR 

78 LSR 

79 DEX 

80 BNE DIUIDE 

81 

82 NODIU LDX SEGNO 

83 CMP COLUI N-1,X 

84 

85 

86 


; DA CONTROLLARE 
; COLONNA UINCENTE 
;49144+10-TABELLA PER 
; PUNTI- DA CERCARE 
;49190+10-TABELLA PER 
; TOTALI U INC ITE TROUATE 

j NUflERQ DI PRONOSTICI 

; PUNTATORE ALLA 1A COLONNA 
; DA CONTROLLARE 
; PUNTATORE ALLA COPPIA DI 
; BITS AL’ INTERNO DI UN 
; BYTE CONTENENTE SEGNI 
; DELLA COLONNA ATTUALE 


PONE A 1 IL NUMERO 

DEL CORRENTE PRONOSTICO 

AZZERA 

PUNTEGGI 


; CONTROLLA TASTO “STOP" 

; INIZI AL IZZA 
; I PUNTATORI 
; ALLA COLONNA 
; DA CONTROLLARE 

; INIZIALIZZA CICLO 
; PER NUMERO PRONOSTICI 
; CARICA UN 
; SEGNO DELLA 
; COLONNA ATTUALE 

: SE BYTE-0 

; ALLORA SALTA A 'NODIU' 

; DECODIFICA 
; SEGNO 


CARICA CORRISPONDENTE 
SEGNO DELLA COLONNA 
UINCENTE 

SE DIUERSI SALTA A ’NOPUNT 
ALTRIM. INCREMENTA PUNTI 


BNE NOPUNT 
INC PUNTI 
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B7 NOPUNT INX 

8B STX SEGNO 

89 

90 CPX NPRON 

91 BEO CONT 

92 BCC CONT 

93 

94 JMP UEDIAMO 

95 CONT INC BYTE 

96 

97 
9B 

99 LDA BYTE 

100 CMP #3 

101 BEO START 

105 BCC START 

103 LDA #0 

104 STA BYTE 

105 

106 INC PUNTAT 

107 LDA PUNTAT 

10B BNE NO INC 

10S INC PUNTAT+1 

110 NO INC JMP START 

111 

112 UEDIAMO JSR DECRCOL 

113 

114 LDX #8 

115 LOOP LDA COLON-1 , X 

116 CMP #S30 

117 BNE EXIT 

118 DEX 

119 BNE LOOP 

150 

151 LDA #1 

155 STA 49723 

123 LDA PUNTI 

124 CMP #10 

125 BEO XUI2 

156 BCS XU5 

127 RTS 

128 XU5 TAX 

129 INC TOTAL ,X 

130 RTS 

131 

132 EXIT LDA PUNTI 

133 CMP #10 

134 BEO OKAY 

135 BCS OKAY 

136 

137 

138 


INCREMENTA CICLO 
MEMORIZZA NUMERO 
PRONOSTICO 
PRONOSTICI FINITI? 

SE NO 

SALTA A ' CONT ’ 

SALTA A ’ UEDIAMO’ 
INCREMENTA PUNTATORE 
ALLA COPPIA DI BITS ALLO 
INTERNO 

DEL BYTE CORRENTE 

BYTE 

E’ -3? 

SE UGUALE 0 

MINORE SALTA A "START" 
AZZERA BYTE 


; INCREMENTA 
; PUNTATORI 
-;ALLA COLONNA 
; ATTUALE DA CONTROLLARE 
; SALTA A 'START’ 

; DECREMENTA LE COLONNE 
; DA CONTROLLARE 
; UERIFICA NUMERO 
; DI COLONNE DA 
; CONTROLLARE 
; SE<>0 
; ALLDRA 

; SALTA A ’ EXIT ’ 

; SETTA FLAG DI 
; FINE RICERCA Cl-FINE) 

: CARICA PUNTI OTTENUTI 
; CONFRONTA CON 10 
; SE UGUALE 

; 0 MAGGIORE SALTA A 'XUI2' 

; ESCE DAL PRG 

; INCREMENTA NUMERO UINCITE 
; DELL ’ ATTUALE PUNTEGGIO 
;ESCE DAL PRG 

; CARICA PUNTI OTTENUTI 
; CONFRONTA CON 10 
; SE UGUALE 

; 0 MAGGIORE SALTA A 'OKAY' 
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LDA #1 
STA SEGNO 


; RIPOSI ZIONA 
; AD 1 IL PUNTATORE AL 


139 



CORRENTE PRONOSTICO 

140 

LDA 

H0 

AZZERA 

141 

9TA 

PUNTI 

PUNTI 

145 

143 

144 OKAY 

JMP 

CONT 

SALTA A ’CONT ’ 

145 

TAX 


; INCREMENTA 

146 

INC 

TOTAL , X 

NUMERO U INC ITE DELLO 

147 



ATTUALE PUNTEGGIO 

140 

LDA 

BYTE 

INCREMENTA 

149 

CLC 


PUNTATORE 

150 

ADC 

HI 

ALLA COPPIA DI BITS 

151 

STA 

BYTE 

DI UN BYTE 

155 

CMP 

#4 

E* 47 

153 

BNE 

OKA1 

SE NO SALTA A’OKAl’ 

154 

LDA 

#0 

ALTRIMENTI 

155 

STA 

BYTE 

LO AZZERA 

156 




157 

INC 

PUNTAT 

INCREMENTA 

150 

LDA 

PUNTAT 

PUNTATORI ALLA 

159 

BNE 

OKA1 

COLONNA 

160 

INC 

PUNTAT+1 

ATTUALE 

161 OKA1 

165 

LDA 

49B00 

SE LOCAZ 49000 

163 

BNE 

NOOUT 

CONTIENE 0 SALTA 

164 




165 

LDX 

PUNTI 

IL PUNTEGGIO OTTENUTO 

166 

LDA 

UERIF.X 

ERA STATO SELEZIONATO F 

167 



LA RICERCA? 

160 

BEQ 

NOOUT 

SE NO C 49000-0 D SALTA 

169 

RTS 


ALTRIMENTI ESCE DA PRG 

170 

171 NOOUT 

17 S ******** 

JMP 

POUERUP 


173 

174 TABELLA 

DFB 

3,15,40,195 

; TABELLA DI DECODIFICA 

175 



; SEGNI DELLE COLONNE DA 

176 



ì CONTROLLARE 

177 

1.70 ******** 
179 

100 KEYB 

LDA 

197 j 

CARICA TASTO PREMUTO 

IBI 

CMP 

#S3F 

E’ "RUN/STOP"? 

105 

BEO 

KEYSTOP ; 

SE SI SALTA A ‘KEYSTOP 

103 

RTS 

; ALTRI MENTI ESCE 

1B4 



DALLA SUBROUTINE 

105 

1B6 KEYSTOP 

LDA 

#1 

SETTA FLAG DI ‘STOP* 

107 

STA 

49001 


100 

PLA 


ED 

109 

PLA 


ESCE 

190 

RTS 


DAL PRG 
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Display 



Un programma di 
utility per trascrivere 
su schedina le 
colonne da giocare 


P robabil mente, soprattutto quan- 
do le colonne da giocare sono nume- 
rose. la Tase di trascrizione sarà diffe- 
rita rispetto alla fase di sviluppo 
del sistema. 

In seguito, ed eventualmente in più 
riprese, si copieranno le colonne da 
giocare da video o da tabulato, otte- 
nute con Q programma “Display". 

Ovviamente per usufruire dell’uti- 
lity è d'obbligo la registrazione delle 
colonne, mediante l'apposita opzio- 
ne presente nello specifico program- 
ma utilizzato per sviluppare il si- 
stema. 

“Display” provvede a caricare da 
disco, o da nastro, le colonne prece- 
dentemente registrate e le visualizza 
in colonne verticali, in gruppi di 
quanto. 

La stampa può essere ottenuta sia 
su video che su carta; scegliendo 
l’output su video, potrete controllare, 
mediante i tasti cursore, un indicato- 
re che si rivelerà molto utile nella 
trascrizione. 


1] programma 

Dopo il RUN verrà chiesto se desi- 
derate la stampa su video o su stam- 
pante; premete rispettivamente "V" 
oppure “S“ per selezionare l’op- 



P REMI UN TASTO. 
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zionc prescelta. 

Dal momento che la stampa delle 
colonne è verticale anziché orizzon- 
tale. dovrete attendere alcuni secon- 
di. necessari al calcolatore per riordi- 
nare i dati per la stampa verticale. 


STAMPA TERMINATA: 


nraanmuM 


Mentre, infatti, con la stampa oriz- 
zontale vengono stampate le colonne 
una dopo l’altra, con quella verticale 
verranno stampati prima tutti i segni 
del primo pronostico di ciascuna co- 
lonna; successivamente i segni relati- 
vi al secondo pronostico e cosi via. 

Terminata la stampa delle colonne 
verrà chiesto se effettuare altre stam- 
pe oppure terminare il lavoro. 

Premendo il tasto “1” il programma 
riparte; potrete cosi eseguire altre 
stampe. 

Premendo “2” si esce dal program- 
ma ma. tuttavia, il programma è an- 
cora presente in memoria; se tale op- 
zione è stata selezionata per errore, 
sarà quindi possibile utilizzare nuo- 
vamente il programma digitando 
RUN, seguito dalla pressione del ta- 
sto Return. 

In seguilo dovrete digitare il nome 
del file contenente le colonne da 
stampare e premere Return 

Una volta caricate le colonne, il 
computer stamperà sullo schermo (o 
su carta), a sistema-base dal quale 
sono state estratte le colonne che sa- 
ranno stampate successivamente. 


VUOI STAMPARE SU UJ1DEO O BIT AMP ANTE? 
NOME FILE DA CARICARE : TOTOI ■ 


100 REM DISPLAY TOT 1B PLUS U1.0 
120 REM 

1H0 RETI STAMPA SU UIDEO 0 STAMPANTE 
160 REM F1LES DI TOT 16 PLUS 
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183 REM 

800 REM BY: ANTONIO PASTORELLI 
220 : 

SHO POKE 53263 . 0 : PRINT CHRSC 147) . POKE 53280. 0:POKE 53281 . 0 : PRINT CHRSC159) 
260 QOSUB 2440 INIZIALIZZA SPRITE 0 

280 PRINT CHRSC142)CHRSC8):0IM CLSC52) . UASC3) . SISC 16) 

300 PRINT CHRSC 147)CHRSC1B) " ••• DISPLAY TOT 16 PLUS U1.0 ••• - 

320 PR I NT : PR I NT : PR 1 NT ”UUO l STAMPARE SU " CHRSC18) "U" CHRSC146) “IDEO 

3*10 PRINT “0 " CHRSC18) "J5" CHRSC146) "TAPPANTE?" : POKE 138. 0 

360 6ET AS:IF AS-"U" THEN 0U-3:0PEN 1,3:G0T0 460 

380 IF AS-“S“ THEN 0U-4:G0T0 420 

400 GOTO 360 

420 OPEN 1,4,7: CLOSE IjIF ST<>0 THEN 360 
440 OPEN 1.4 

460 PRINT: PRINT: PRINT “NOME FILE DA CARICARE: “ ; 

480 GOSUB 2040: REM INPUT CONTROLLATO 

500 PRINT CHRSC 1471 CHRSC 34) NMS CHRSC34) : PRINT "E’ 5U If/»=lSTRO 0 aDBISCO?'*' 
520 POKE 198,0 

540 GET AS: IF AS-"N” THEN 740 
560 IF AS-“D” THEN 700 
580 GOTO 540 
600 : 

620 REM 

640 REM ••• APRE IL FILE ••• 

660 REM •••••••••••••••••••• 

680 : 

700 OPEN 2, B, 12: CLOSE 2:IF ST<>0 THEN SCO 
720 OPEN 2,8,12, NMS* " , S , R" : GOTO 823 
740 OPEN 2,1,0, NMS 
760 : 

780 REM CONTROLLO FILES DI TOT 16 PLUS 

800 : 

820 CKS-"":FOR J-l TO 7 

840 GETS2, AS: IF AS-"" THEN 840 

860 CKS-CKS+AS : NEXT J 

880 IF CKS-“T0T16.D" THEN 360 

900 PRINT CHRSC 147) CHRSC18) "QUESTO NON E f UN FILE DI TOT 16 PLUSI I II " 

905 CLOSE 2 :PR INTUÌ: CLOSE 1 
910 POKE 198,0 

320 GET AS: IF AS-“" THEN 920 
940 RUN 

960 I NPUT *2 , NP , NC : REM ••• LEGGE NUMERO PRONOSTICI E NUMERO COLONNE ••• 

980 FOR J-l TO NP: INPUTR2, SISC J): NEXT 
990 PRINT CHRSC 147); 

1000 PRINTR1 , CHRSC 18) ; "SISTEMA ORIGINARIO CHRSC 13) 

1020 FOR J-l TO NP:PR1NT#1,SISCJ):NEXT 

1021 IF OU-4 THEN 1040 

1022 PRINT CHRSC 17); "PREMI UN TASTO.": POKE 198,0 

1023 GET AS 

1024 IF AS-"" THEN 1023 

1040 PRINT CHRSC147); "DECODIFICA: ATTEND I • " : I F DU-3 THEN 1080 

1041 PRINTftl. CHRSC13); CHRSC 18) ; "SU1LUPP0-. " ; CHRSC 13) 

1080 UAS— " " : PN-0 : CL— 1 

1100 GETS2 , AS : IF AS-“" THEN 1103 

1120 A-ASCCAS) 

1140 : 

1160 REM •••••••••••••••••••••••• 

1180 REM ••• DECODIFICA SEGNI ••• 

1203 REM 
1220 : 

1240 FOR K-0 TO 3 

1260 UA-CA AND 3«4TK)/4TK 

12S0 IF UA-1 THEN UASCK)-"1" 

I30G IF UA-2 THEN UASCK)-*X" 
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1350 IF UA-3 THEN UASCK)-"5" 

1355 1F UAOl AND UAOS AND UAOS THEN PP.INT "FILE DATA ERROR ! " : GOTO 305 

1340 NEXT K 

13E0 FOR K-0 TO 3 

1380 PN-PN+1 : CLSCCL)-CLSCCL)*UASCK) 

1400 IF PN-NP THEN CL-CL*1 : PN-0 : NC-MC-1 
1450 IF NC-O THEN GOSUB 1580: GOTO 1B40 
1455 IF DU-4 THEN 1440 

1453 IF CL> 16 THEN CL-1:G0SUB 15B0:GOTO 1473 
1440 IF CL>55 THEN CL-1: GOSUB 1580 
14G0 NEXT K : GOTO 1100 
1480 : 

1500 REtl 

1550 REM ••• STAMPA COLONNE ••• 

1540 REM •••••••••••••••••••••• 

15S0 : 

1580 POKE 1SB , 0: PRINT CHRSC147) : TB-0: FOR J-l TO NP 
15B5 GET AS:IF AS-CHRSC 95) THEN 1840 
fl530 IF DU-4 THEN 1600 
15S5 FOR G-l TÒ 15: GOTO 1550 
1500 FOR G-l TO 55 

1650 TB-TB-1 : PRINT#1 .HIDSCCLSC6) , J, 1 > ; 

1640 IF TB-4 THEN TB-0; PRINTS1 , CHRSC3S) ; CHRSC353 ; 

1660 NEXT G: IF DU-4 THEN PRINT*1:G0T0 1710 
1680 PRINT CHRSC 13) ; 

1700 NEXT J 

1750 PR1NTS1 , CHRSC 13) ; CHRSC 13) ; 

1740 FOR J-l TO 55 : CLS C J )— " “ : NEXT 

1760 IF DU-3 THEN GOSUB 5B40 MOUI MENTO INDICATORE DI POSIZIONE 

1761 IF UK-1 THEN 1840 

1765 PRINT CHRSC 147); "ATTENDI RETURN 

1840 CL0SE5 : PRINTR1 : CLOSE 1 

1860 PRINT CHRSC 147) "STAMPA TERMINATA." 

1880 FOR J-l TO 5 : PR I NT CHRSC 17) ;: NEXT 
1S00 PRINT *1> ALTRE STAMPE" 

1350 PRINT *S> FINE LAUORO" 

1340 PRINT : PRINT CHRSC 18) "COSA SCEGLI?":POKE 138.0 

1960 GET AStIF AS-"1" THEN RUN 

1980 IF A$-”S“ THEN PRINT CHRSC 147) ,: END 

5000 GOTO 1360 

5050 END 

5040 NMS-”": POKE 198,0: POKE 504,0 
5060 GET AS:IF AS-"" THEN 5060 
5080 A-ASCCAS) 

5100 IF AS-CHRSC 13) AND NHSO"" THEN 5350 

5150 IF AS-CHRSC 50) AND NMSO"" THEN 5300 

5140 IF AS-"." OR AS-"/" OR AS-"C" OR AS-")" THEN 5500 

5160 IF CA>64 AND A<31) OR CA>47 AND A<58) THEN 5C.J 

5180 GOTO 5060 

5500 IF LENCNMS)-16 THEN 5060 
5550 NMS-NHS-AS: PRINT AS ; -.GOTO 5060 
5540 : 

5560 REM ••• CANCELLA CARATTERE •— 

5580 : 

5300 NMS-LEFTSCNMS, LENCNMS)-!) : PRINT CHRSCS0) ; : GOTO 5060 
5380 POKE 507.0: POKE 504,1 .-PRINT" ": RETURN 
5340 : 

5360 REM 

5380 REM ••• ATTIUA SPRITE 0 ••• 

5400 REM 
5450 : 

5440 LC-835 

5460 READ A:IF A— 1 THEN 5500 
5483 POKE LC , A : LC-LC* 1 : GOTO 5460 
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2500 POKE 2040, 13: POKE 53264,0 
2520 POKE 53275,0: POKE 532B7.2 
2540 RETURN 

2560 REM ••••••••••••••-•••*•• 

2580 REO ••• DATI SPRITE 0 ••• 

2600 REM 

2S50 : 

2640 DATA 0,0, 0.0. 0.0, 0,0, 0.0, 0,0, 0,0, 0,0 

2660 DATA 255,192,1.127,160,1,128,36,1,120,96,1.128,96,1,120 
2600 DATA 96, 1, 128, 96, 1.128, 96, 1,120, 96, 1.12B, 96. 1,127, 160 
2700 DATA 0 , 255 ,192,0,0,0,0,0,0,0,0,0,0,0,0,0 
2720 DATA 0,-1 
2740 : 

2760 REM •••••••••••••••••••••••••• 

27B0 REM ••• CONTROLLO SPRITE 0 ••• 

2800 REM •••••••••*••••*•••••••*••• 

2820 : 

2040 UK-0:POKE 53248, 16: POKE 53249, 50: POKE 53269,1 
2B60 PX-1:PY-1:P0KE 198,0 

2B80 BET AS : I F AS-CHRSC13) THEN POKE 53269, 0: RETURN 

2900 IF AS-CHRSC95) THEN POKE 53269 , 0 : UK-1 : RETURN 

2320 IF AS-CHRSC17) THEN 3080 

2940 IF AS-CHRSC145) THEN 3300 

2960 IF AS-CHRSC29) THEN 3520 

2980 IF AS-CHRSC157) THEN 3680 

3000 GOTO 2BB0 

3020 : 

3040 REM •• BIU •• 

3060 : 

3080 IF PY-NP THEN 3120 

3100 POKE 53249 . PEEKC 53249) +8 : PY-PY+1 : GOTO 2880 
3120 IF PX-16 THEN 2880 
3140 PX-PX-»1:PY-1 

3160 IF PX-5 OR PX-9 OR PX-13 THEN POKE 53248, PEEKC 53248) +24 : GOTO 3200 

3180 POKE 53248, PEEKC 5324 8) +8 

3200 POKE 53249,50 

3220 GOTO 2880 

3240 : 

3260 REM •• SU •• 

3280 : 

3300 IF PY-1 THEN 3340 

3320 POKE 53249, PEEKC53H49)-B: PY-PY-1 : GOTO 2B80 
3340 IF PX-1 THEN 2880 
3360 PX-PX-1: PY-NP 

3380 IF PX-4 OR PX-B OR PX-12 THEN POKE 53248, PEEKC 53248) -24 : GOTO 3420 
3400 POKE 53240, PEEKC 53240) -8 
3420 POKE 53249. 50+B*CNP-l) 

3440 GOTO 2880 
3460 : 

3480 REM •• DESTRA •» 

3500 : 

3520 IF PX-16 THEN 2880 
3540 PX-PX+1 

3560 IF PX-5 OR PX-9 OR PX-13 THEN POKE 53248, PEEKC 53248) *24: BOTO 2000 
3580 POKE 53248, PEEKC 53240) +8 
3600 GOTO 2080 
3620 : 

3640 REM •• SINISTRA •• 

3660 : 

3680 IF PX-1 THEN 2880 
3700 PX-PX-1 

3720 IF PX-4 OR PX-B OR PX-12 THEN POKE S3249, PEEKC5324B)-24: GOTO 2080 
3740 POKE 53240, PEEKC 53248 )-0 
3760 GOTO 2880 
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Puntualizziamo 

Che cosa si intende per sistemi integrali, 
ridotti e bi-ridotti; e come interpretare 
correttamente alcune considerazioni 


C orno visto in precedenza, la ri- 
duzione di un sistema è ottenuta sele- 
zionando solo alcune delle colonne 
in esso contenute, scegliendole in 
modo che, se la colonna vincente ri- 
sultasse una qualsiasi tra quelle eli- 
minate. si abbia tuttavia almeno una 
vincita di seconda categoria tra le co- 
lonne giocate (un punto in meno ri- 
spetto al punteggio massimo). 

I sistemi bi-ridotti sono basati sullo 
stesso principio, con l'unica differen- 
za che viene garantita almeno una 
vincila di terza categoria (due punti 
in meno rispetto al punteggio mas- 
simo). 

Supponiamo di partire dal seguen- 
te sistema-base: 

IX 

IX 

IX 

IX 

I 


Le colonne contenute in tale siste- 
ma sono le seguenti: 

<1/ llll Ulllllll • + + 
b/ Il 1X1 111 11 III 
c/ 11X1 Ulllllll 
< 1 / 1IXXI 1111 1111 • 
e/ 1X11111111111 

jy ìxixiiiuiin • 
s/ ixxiiinnui • 
w ì xxxi in in u + + 

i/XUUUUllll 
l/XUXUllUlll • 
m/XlXUlUUlU • 
n/' XJXXUll 11111 
o/ XXI 11 1111 1111 • 
p/XXlXUUUIU 
q, XXXI 111 111111 
rXXXXl 1111 1111 • 


Le otto colonne contrassegnate con 
l'asterisco sono quelle da giocare, e 
garantiscono almeno un 12 qualun- 
que sia la colonna vincente del 
sistema. 

Possiamo verificare quanto detto, 
scegliendo a caso una colonna tra 
quelle non contassegnate con l'aste- 
risco. cioè non giocata, come ad c- 
sempio la i/: 

1/Xllllllllllll 

Confrontando la colonna i/ con 
quelle giocate (colonne con l'asteri- 
sco), individueremo un 12 nella co- 
lonna a/. 

Volendo ottenere, dallo stesso siste- 
ma. una bi-riduzione. occorrerà gio- 
care solo le due colonne contrasse- 
gnate con due crocette (++). 

Supponendo che la colonna vin- 
cente sia la p /, totalizzeremo undici 
punti con la h/. Naturalmente la bi- 
riduzione si potrà applicare solo ai 
concorsi che. oltre alle vincite di pri- 
ma e seconda categoria, prevedano 
anche quelle di terza. 

Un po’ di definizioni 

Di solito per "sistema integrale" si 
intende la totalità delle colonne che 
scaturiscono dalla combinazione di 
tutti i segni che lo compongono. 

Un sistema condizionato, invece, è 
l'insieme delle colonne di un sistema 
che soddisfano particolari condizio- 
ni imposte dall'utente (quantità dei 
segni consccutività, c cosi via). 

Ad un sistema condizionata cosi 
come ad un sistema a correzione 
d'errore, può essere applicata una 
riduzione. 

Pertanta quando d si riferisce ad 
un sistema condizionato (od a corre- 
zione d'errore) senza ulteriori “ma- 
nomissioni". con particolare riferi- 
mento alla riduzione, si usa definire 
tale sistema come "integrale". 

In definitiva, con “integrale" si in- 
dicano tutte le colonne del sistema. 


mentre la dizione "integrale" aggiun- 
ta al tipo di sistema indica la man- 
canza di riduzione, in aggiunta, però, 
ai normali condizionamenti tipici di 
quel tipo di sistema. 

Quando nel programma "Tbt 16 
plus”, o in “Tot corrector". viene chie- 
sto il grado di ottimizzazione, la di- 
zione "integrale" indica la mancanza 
di ottimizzazione, in alternativa alla 
riduzione o bi-riduzione. 

Parliamo di consecutivi tà 

Si ritiene doverosa una precisazio- 
ne sull'uso delle limitazioni delle 
consecutività. in quanto, utilizzando 
altri programmi tra i più diffusi sul 
mercato, si è notato che questa opzio- 
ne viene trattata diversamente, tanto 
da generare errori che alterano note- 
volmente i risultati ottenuti 

In altri programmi, ponendo la 
consecutività minima di segni “X" 
pari a 1. si eliminano tutte le colonne 
che sono prive di segni “X" (quindi 
rende obbligatoria la presenza del se- 
gno "X” per l'acccttazione delle 
colonne). 

In Tbt-16 Plus, invece, il limite mi- 
nimo di 1, indica l'assenza di Segni 
consecutivi; ciò vuol dire che accetta 
sia le colonne con un certo nu mero di 
segni "X", purché non consecutivi, 
sia l'assenza stessa del segno. 

Queste divergenza di trattamento è 
dovuta alla diversa impostazione lo- 
gica del problema. 

Tot-16 Plus imposte l’elaborazione 
in modo che. con la limitazione dei 
segni consecutivi, non si ottenga un 
altro tipo di condizionamento, vale a 
dire la limitazione del numero di se- 
gni cosa che invece avviene con 
altri programmi. 

Volendo quindi evitare di limitare 
la consecutività dei segni bisognerà 
digitare “l"come consccutività mini- 
ma. c come massima il numero di 
pronostici (12 per Tòtip. 13 per Toto- 
calcio. ecc.). 
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Ora che hai scelto il tuo videoregistratore, vuoi usarlo nel modo 
migliore. Per questo devi regalarti VR. Cosi tu impari tutti i se- 
greti possibili, e lui viene utilizzato al meglio. 




